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1 .NLIST TTM 

.NLIST SEQ,LD,BIN 

9 REPT 



IDENTIFICATION 

PRODUCT CODES AC-F098C-MC 

PRODUCT NAME; CXPXBC* RX*?2 MODULE 

PRODUCT DATE I APRIL 1979 
MAINTAINER: TAPE DIAGNOSTICS 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMi X MENT 
BY DIGITAL EQUIPMENT CORPORATION, DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS MANUAL* 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT Is FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOp USE ON a SINGLE COMPUTER 
SYSTEM AND CA W BE COPIED UlTH INCLUSION OF DIGITALS 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM , EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WPlTlNG BY DIGITAL. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NC RESPONSIBILITY FOR 
THE USE Or RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
MOT SUPPLIED BY DIGITAL » 

COPYRIGHT (C) 1978, 1979 DIGITAL EQUIPMENT CORPORATION 
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1 . APSTPACT 



PXB IS AN IOMODX THAT EXEPCISES TWO PX02 FLOPPY DISKS 
On THE IJNIBUS, IT EXEPCISES BOTH DPIVES BY WRITING AND 
READING ALL AVAILABLE DP IVES » 

ERRORS APE CHECKED FOR BUFFER FILL, WRITE, REAP, AND DATA 
COMPARE, TWO RETRIES ARE DONE FOR EACH WRITE OR READ STATUS 
ERROR, ALL ERRORS APE REPORTED 0* THE CONSOLE TTY, 



2 8 REQUIREMENTS 



HARDWARES 1 OR 2 DISKETTES WITH AN RX02 CONTROLLER 

STORAGES s RXB REQUIRES I 

1 . DECIMAL WORDS t 1661 

2. OCTAL V'OPDS t 03175 

3. OCTAL BYTES t 6372 



3, PASS IDENTIFICATION 



OME PASS OF THE RXB MODULE CONSISTS OF 130, WRITE AND 
READ PASSES ON AVAILABLE DRIVES , THE TEST SEQUENCE 
WRITES THEN READS EVERY THIRD SFCTOp OF EVERY T£Nfri TRACK 
STARTING AT TRACK 1 SECTOR 1, 

THE E^TlpE DISKETTE IS DONE , EACH PASS OF THE DISKETTE STARTS 
AS SHOWN s 

1 , STARTS AT SECTOR #1/TRACK #1 

END OF PASS 
2* STARTS AT SECTOR #2/TPACK #1 

END OF PASS 

3. STARTS AT SECTOR #3/TRACK #1 

END OF PASS 

4, STARTS AT SECTOR #1/TRACK #2 

8B .FTC 9 



4, EXECUTION TIME 



ONE PASS OF RXB RUNNING ALONE ON THE PDP-11/05 AVERAGES 
8 75 MINUTES FOR 2 DRIVES a 
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5. CONFIGURATION REQUIREMENTS 



DEFAULT PARAMETERS I DEVADR 1 1 77 1 70 

VECTORf 264 

BR1 1 5 
DEVCNT ; 2 

REQUIRED PARAMETERS % NONE 



6, DEVICE/OPTION SETUP 



ASSURE ALL DRIVES ARE POWERED UP, DISKETTES INSTALLED , 
AND READY. 

7 t MODULE OPERATION 

A. SETUP DRIVE REGISTER ADDRESSES AND MODULE VARIABLES 

B. SELECT DRIVES FOR TEST - IF NONE AVAILABLE, DROP MODULE 

C. INITIALIZE DRIVES 

D. SET AVAILABLE DRIVES TO SINGLE DENSITY 

E. WRITE AND READ ALL AVAILABLE DRIVES - IF ERROR, REPORT AN 
RETRY FAILING FUNCTION UP TO RETRY LIMIT. 

F. DO DATA COMPARE FOR ALL READS - IF ERROP, REPORT 

G. UPDATE TRACK 4- SECTOR - DO E« * F * UNTIL ALL SECTORS 
OF AVAILABLE DRIVES ARE DONE. 

H. CHANGE DENSITY OF AVAILABLE DRIVES 
I* DO F B f F « & Q 8 FOR KfiW DENSITY 

J, UPDATE STARTING ADDRESS? GO TO D 

8, OPERATION OPTIONS 



SRI BIT SET(i)! 

IF RETRY LIMIT Is EXCEEDED ON ANY FUNCTION 9 REPORT 
HARD ERROR AND DROP THE MODULE. 

SRI BIT CLEAR(0)S 

IF RETRY LIMIT IS EXCEEDED , CONTINUE «ITH NEXT TEST. 
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i 

SEQ 0004 



9. NON-STANDARD PRINTOUTS 



ALL PRINTOUTS HAVE THE STANDARD FORMAT DESCRIBED IN THE 
DEC/X1 I DOCUMENT, 

ERROR MESSAGES DUHP THE COf.fE^TS OF THE RX02 REGISTERS 
IN THE FOLLOWING ORDER « 

PXCS (COMMAND REGISTER) 
RXES (ERROR REGISTER ) 
FXTA (TRACK ADDRESS) 
PXSA (SECTOR ADDRESS) 

RXSB (WORD COUNT PEG. ) / (DEFINITIVE ERROR CODE)->---- 

RXSB1 (DRV1 TRACK ADR) / (DRV0 TRACK ADR) I 

RXSB2 (TARGET SECTOR) / (TARGET TRACK) I 

RXSB 3 (TRACK ADR SELECTED DRV* ) / (MICROCODE STATUS)->-- i 

i I 

(UPPER BYTE-ODD) / (LOWER BYTE-EVEN) 1 i 

I I 

* = ONLY MEANINGFUL ON A CODE 150 ERROR, SEEK ERROR . I i 

» I 

i I 

MICROCODE STATUS < — - — »• — — — — — — — — — - — — • I 

„„ i 

I 

BIT #7 s UNIT SFLFCT 1 
BIT #6 s DENSITY DRIVE »l 
BIT #5 s HEAD LOAD 
BIT #4 s DENSITY DRIVE #0 



TABLE OF DEFINITIVE ERROR CODES < — 



K.^XDV0 = 


10 


KNXDV1= 


20 


KERTRKs 


40 


KH0MEPP= 


50 


KSELFER= 


60 


KNXHDR= 


70 


KWPPOT 35 


500 


KTlMERRa 


1 10 


KNXPRAM= 


120 


KWXlDAWs 


130 


KNCHCFP= 


140 


KjKsKER= 


150 


KXSTHYSs 


160 


K NOD A Ms 


170 


KDCRCER= 


200 


KKANERs 


220 




230 


KSTDEP= 


240 



/DRIVE FAILFD TO SEE HOME ON INITIALIZE. toO ERROR BIT 
/DRIVE 1 FAILED TO SEE HOME OM INITIALIZE. NO ERROR BIT 
/TRIED TO ACCESS A TRACK GREATER THAN 76 8 
/HO^F. WAS FOUND BEFORF DESIRED TRACK WAS REACHED. 
/SELF DIAGNOSTIC ERROR . 

/DESIRED SECTOR COULD NOT BE FOUND AFTER LOOKING AT 52 HEADERS a 
/WRITE FUNCTION ATTEMPTED On A WRITE PROTECTED DISK* 
/MORE THAN 40 MICROSECONDS AND *'0 SEPCLOCK SEEN . 
/A PREAMBLE COllID NOT BE FOUND 9 

/PREAMBLE FOUND BUT NO ID MARK FOUND WITHIN ALLOWABLE TIME. 

/CRC ERROR ON WHAT APPEARED 10 BE A HEADER* ERROR IS NOT ASSERTED. 

/TRACK ADDRESS OF GOOD HEADER DOES n 0t COMpARE WITH DESIRED TRACK 9 

/TOO MANY TRIES FOR AN I DAM . 

/DATA AM NOT FOUND IN ALLOTTED TIME. 

/CRC ERROR ON READING THE SECTOR FROM THE DISK. 

/R/U ELECTRON ICS FAILED MAINTENANCE MODE TEST , 

/WORD COUNT OVEPFLOW, 

/WRONG KEY WORD FOR SET MEDIA DENSITY COMMAND. 
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SEQ *5005 



. ENPP 



C . RETRIES S EACH ic R I T E Op READ STATUS ERROR IS ACCOMPANIED BY 
A RETRY NUMBERS 

PETRY ^5 IS THE ORIGINAL ERROR 

RETRY 1 : IS THE FIPST PETRY OF THAT ERROR (SAME ADDRESS) 
RETRY 2: IS THE SECOND RETRY OF THAT ERROR (SAME ADDRESS) 

MOW DROP THE MODULE IF SP1=1 OR 

CONTINUE TO NEXT ADDRESS IF SRl=0 



1.0, DEVICE REGISTERS 

CODE 



FUNCTION 



FILL BUFFER 
EMPTY BUFFER 
fcRITF SECTOR 
READ SECTOR 

SET OFNglTY ** T A K E S 15 SECONDS 
READ MAINTENANCE STATUS 
WRITE SECTOR WITH DELETED DATA 
READ ERROR CODE 



1 1 

I I I 1 ! i i 

115 114 ! 131 121 11! 101 09! ?8J 07106 !05 104 £03 102 !01 J00 

! — — 

PXCS: 1 F P R J I N T J X !XM |RX2! J S I D J PEN i TP J IE | DON J DP V » FUN J FU^ I FUN J GO 



WC: i 


X X X X 


X X X X ! WORD COUNT • 








BAs ! 


BASE ADDRESS 










RXESs ! 
I 


X • X ! X 1 X 
! ! ! 


I^XM • *C J S I D « Dp V » DR V 1 DEL i DSK | DEN 1 AC J 1 NT ! SID ! CRC ! 
! JOVE! *1 i M ! RDV ! DAT 1 DEN i ERR ! LOto ! DON ! po i i I 








RXTAs ! 


X ! X I X ! X 


! X I X ! X I X ! ! TRACK ADDRESS i 


te- 


-> 76. 


LEGAL] 


RXSA; i 


X ! X • X ! X 


! X ! X ! X J X ! i p I ! SECTOR ADDRESS « 


ll 


-> 26« 


LEGAL) 
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lOMfioX <RXRC >#177170,264,5,0,2,202#137,RbUF,64.,66. 
MODULE 150000, RXBC , i 77 170 , 264 , 5 , , 2 , 202 , 1 37 , RBUF , 6 4 , 
.TITLE RXBC DEC/X1 1 SYSTEM EXERCISER MODULE 
DDXCOM VERSION 6 23-MAY-78 

.LIST BIN 



00000(1 * 




BEGIN: 








000000 ' 


054122 041502 


040 MODNA^I 


.ASCII 


/RXBC / 


J MODULE NAMF. 


000005 * 


000 


XFLAGi 


.BYTE 


OPEN 


jUSED TO KEEP TPACK OF toflUFF USAGE 


000006 * 


177170 


AODR ! 


1771 7040 


|15T DEVICE ADDR. 


0000 10' 


000264 


VECTORi 


264 + 




j 1ST DEVICE VECTOR, 


0000 12" 


240 


BR 1 i 


.BYTE 


PRTY5+0 


flST BP LEVEL. 


00001 3 ' 


000 


BR2I 


.BYTE 


PRTY0+0 


J2ND PR LEVEL. 


0000 1 4 * 


00000 3 


DVID1 { 


2 + 1 




IDEVICE INDICATOR 1, 


I *0016* 


000000 


SRI ! 


OPEN 




;SWITCH REGISTER 1 


000020 ' 


000000 


SR2I 


OPEN 




ISWITCH REGISTER 2 


00002 2 * 


000000 


SP3: 


OPEN 




fSWITCH REGISTER 3 


000024 * 


000000 


SR4! 


OPEN 




JS*ITCH REGISTER 4 






•########«#*#*♦#♦######•####*#########**#♦**#*****#*#****###*#*### 


0710026 * 


1 50000 


STAT I 


1 50000 




JSTA1US WORD. 


000030' 


000376' 


INITI 


START 




1 MODULE START ADDR, 


000032 ' 


000252* 


SPOINTj 


MODSP 




fMQDULE STACK POINTER. 


000034* 


000000 


PASCNTI 







JPASS COUNTER. 


000036' 


000202 


ICONTl 


202 




j 9 OF ITERATIONS PER PASS=202 


000040' 


000000 


icount: 







JLOC TO COUNT ITERATIONS 


000042* 


000000 


SOFCNTI 







jLOC TO SAVE TOTAL SOFT ERRORS 


000044' 


000000 


hrdcnti 







JLOC TO SAVE TOTAL HARD ERRORS 


000046" 


000000 


SOFPAS! 







ILOC TO SAVE SOFT ERRORS PEP PASS 


000050* 


000000 


HRDPAS! 







JLOC TO SAVE HAPD ERRORS PER PASS 


000052* 


000000 


SYSCHTJ 







f« OF SYS ERRORS ACCUMULATED 


000054* 


000000 


PANNUMI 







IHOLDS RANDOM » WHEN p&ND MACRO IS 


000056 ' 




CONFIG! 






j RESERVED FOP MONITOR USE 


000056' 


000000 


PESlS 







I RESERVED FOR MONITOR USE 


000060' 


000000 


PES21 







j RESERVED FOR MONITOR USE 


000062' 


000000 


SVPf ! 


OPE* 




ILOC TO SAVE P0. 


000064' 


000000 


SVP1 I 


OPEN 




?LOC TO SAVE Rl, 


000066* 


000000 


5 VR2 : 


OPEN 




JLOC TO SAVF R2, 


000070' 


000000 


SVP3I 


OPEN 




jLOC TO SAVE P3, 


000072* 


000000 


SVR4J 


OPEN 




JLOC TO SAVE R4, 


000074* 


000000 


SVR58 


OPEN 




;LOC TO SAVE R5, 


000076' 


000000 


SVR6 : 


OPEN 




JLOC TO SAVE Rfa. 


000100' 


000000 


CSRA i 


OPEN 




j ADDR OF CURRENT CSP. 


000102' 




SBADR! 






; ADDR OF GOOD DATA, OP 


000102* 


000000 


ACSPt 


OPEN 




jCONTENTS OF CSR, 


000104' 




WASADPI 






J ADDR OF BAD DATA » OR 


000104* 


000000 


ASTATJ 


OPEN 




j STATUS REG CONTENTS, 


000106* 




ERPTYPf 






f TYPE OF ERROR 


000106' 


000000 


ASH: 


OPEN 




J EXPECTED DATA. 


000110* 


00000(3 


AWAS! 


OPEN 




1 ACTUAL DATA. 


000112' 


000666' 


PSTRT! 


PESTRT 




j RESTART ADDRESS AFTER FND OF PASS 


0001 14' 


000000 


WDTO: 


OFEN 




JWORDS TO MFMORY PER ITERATION 


000 116' 


000000 


WDFR I 


OPEN 




jWORDS FROM MEMORY PER ITERATION 


000120' 


000000 


INTRI 


CPE*' 




JS OF INTERRUPTS PEP ITERATION 


CT00122' 


000137 


IDNUHj 


137 




; MODULE IDENTIFICATION NUMBER=137 


000124* 


005770' 


PPUFVAI 


RBUF 




J READ BUFFER VIRTUAL ADDRESS 


000126' 


000000 


PBUFpAl 


OPEN 




5 READ BUFFER PHYSICAL ADDRESS 
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000130* 
000132* 
000134' 
000136* 
000140* 
H001 42' 
000144' 
000146' 
000150' 



000000 
000100 
000000 
000000 
000102 
000000 

000000 

0U0000 
000000 
000040 



RBUFEAl OPEN 
PBUFSZ! 64. 

wbufpaj open 
wbuffa: open 

WBUFRQj 66, 

wbufsz: open 

CDEFCT: OPEN 
CD^DCTJ OPEN 
FREE| OPEN 

.PEPT 5 D SIZ 

, NL 1ST 

,KOPD 

.LIST 

, ENDR 

K ; ODSP: 



J READ BUFFER EA bITS 

JSIZF OF THE READ BUFFEP 

j WRITE BUFFER PHYSICAL ADDRESS 

JtvRITE BUFFER FA BITS 

jKRITF BUFFER SIZE REQUESTED 

JWR1TE BUFFER SIZE AVAILABLE 

jCOATA/DATCK EPROP COUNT 

JCOATA/OATCK *OPD COUNT 

J RESERVED FOR FUTURE USfc 

JMQOULE STACK STARTS h£FE. 



t 
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XPXBCf , 


Pll 05-APP-79 11552 










322 






.----FLAGS AND 


COUNTERS 




323 














324 


tA tA tA ^ "3 




DVID1XJ 







j HOLDS WHICH DRIVES TO TEST 


325 


X)Wv> CJ t 


00000 


UNIT0I 







{UNIT FLAG 


326 


000256 * 


000000 


I) N I T 1 I 







I UNIT 1 FLAG 


327 


0002b0 * 


000000 


ORVMj 







{DRIVE NUMBER 


328 


000262 * 


000000 









jCOMMAND SAVE 


329 


00026 4 * 


000000 


UTT! 







{UNIT UNDFR TEST 


3 30 


000266 ' 


000000 


tm 







{UNIT UNDER COMMAND 


331 


0W0270 ' 


000000 


WTFl 







{WRITE FLAG 


332 


0O0272 ' 


000000 


TA J 







{CURRENT TRACK ADDRESS 


333 


000274 ' 


000000 


SA! 







{CURRENT SECTOR ADDRESS 


334 


000276 ' 


000000 


lASAVi 







{STARTING TRACK ADDPESS SAVE 


335 


P0030W ' 


000000 


SASAV J 







{STARTING SECTOR ADDRESS SAVE 


336 


000302* 


000100 


WDCNTl 


100 




JWCPD CCOUNTER 


337 


000304* 


000000 


DENSTYI 







{DENSITY 


338 


000306 * 


000000 


DEN | 







{DENSITY FLAG 


339 


000310* 


000000 


TOMLT J 







J TIME OUT MULTIPLIER 


340 


0003 1 2 * 


000000 


TOCNTl 







{TIME OUT COUNTER 


341 


0003 1 4 * 


000000 


I tilt 







IINTIALIZE FLAG 


342 


0003 1 6 * 


000000 


UTDONEl 







{UNIT DONE FLAG 


343 


Wire 3 i <r 


000000 


TSSFLG! 







{TSS DONE WITH UNIT FLAG 


344 


000322 * 


000000 


1NLOOPJ 







{IN LOOP FLAG 


345 




000000 


ITBYPS8 







{RESTART INIT BYPASS FLAG 


346 


000 3 26 * 


000000 


PKPYPSl 







{ PREAK BYPASS FLAG 


347 


000330 * 


000000 


RTRYFL! 







{ RETRY FLAG 


346 


VSOx) 3 3 & 




NXERCTl 







{NON EXISTENT MEMORY ERROR COUNTER 


349 


y) r 1 Y) 3 3 ** 




SERFLl 







{ STATUS ERROR FLAG 


350 


0003 36 


000000 


FIN j 







{FINI FLAG 


351 
352 














353 














354 






.--..TEMPORARY 


STORAGE 




355 














356 


000 340 


000000 


SPXC5! 









357 


V i <k i 


000000 


SRXLSt 









358 


000 3 4 4 * 


000000 


SRXTA J 









359 


t'00346' 


000000 


SRXSAI 









360 


004*350 * 


000000 


SRXSBl 









361 


000352* 


000000 


SRXSB1 1 









362 


000354' 


000000 


SRXSB2! 









363 


000356* 


000000 


5PXSP3 t 









364 


000360' 


000350* 


DECVAf 


SPXSB 




{DEFINITIVE ERROR CODE VIRTUAL AUR 


365 


000362* 


000364' 




.+2 




{DEFINITIVE ERROR COOE PHYSICAL ADR 


366 


000364* 


000366' 




, + 2 




{DEFINITIVE ERROR CODE EXTENDED ADR BITS 


367 














36« 






rnnieTllliTt 


















369 














370 


000366' 


177170 


RXCS { 


177170 




{RX02 COMMAND REGISTER - ADDRESS 


371 


00037P* 


177172 


PXDB! 


177172 




{PX02 DATA PUFFER - ADUPESS 


372 


000372' 


000264 


VECl 


264 




{VECTOR 


373 
374 


000374' 


000111 


VARIFY » 


1 1 1 




{VARIFY WD FOR SET DENSITY-ASCII "I" 
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375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 • 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 
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{ BFGI N ROUT I NF ( MODULE 0.0 CONTROL) 
START 

IMT1ALIZF 

CALL MOD l.f - INITIALIZE DEVICE 
CALL MOD b,P - CHECK STATUS 
RESTART 
BEGINDO 

INLOOP not SFT 
THEN 

F IKITIALIZE.RYPASS NOT SET 

THEN-INITTALIZE-TPACK 4, SECTOR 
NDIF 

F FINl.FLAG NOT SET 

THE* 

CALL MOD 2.0 - OUTPUT (WRITE) 
FINI.FLAG NOT SET 
THEN 

CALL MOO 3.0 - INPUT (READ) 
IF FINI.FLA& NOT SET 
S THEN 

I CALL MOD 4.0 - PROCESS SECTOR 
{ SFT INLOQP-.FLAG t* CALL ITERATION 
FNDIF 

DIF 

FNDIF 

E N T I F 

CLEAP INLOOP 

SET INITIALIZE.BYPASS FLAG 
IF SECTOR.noNF.FLAG SET 
I THEN 

I CLFAP SECTOR.DONE.FLAG 

! CALL MOD 8.0-UN1TS DONE CHECK 
U N I T -.D N E SET 
THEN 

SET TPACK_ADRsTRACK_ADR+10, 
IF TRACK ADR > 76 

} THEN-SFT TRACK.ADRcTRACK.ADR SAVE 

NCpEMENf sECtOr.ADDpEsS-SAVE S, CLEAR I N I T I AL I ZF „Hy RASS-FL AG 
F SECT0R„ADDRESS.SAVE=4 
THEN 

SET SECTOR.ADDPESS»SAVE=l 
INCREMENT TRACK-.ADDRESS-.SAVE 
IF TRACK.ADDPESS.SAVEsil, 
I THEN 

I SET TPACK„ADDRESS-SAVE=1 
I COMMENT DENSITY-FLAG 
! CALL MOD 7.0 - SET DENSITY 
END I F 

NDIF 

END IF 

I ENDIF 
ENDIF 

CALL MOD 5.0-SELECT UNIT FOR TEST 
DOIJNTIL FINIaj 
FIHI— >END 
; ENDROUTINE 
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431 {MOD 0,0 CONTROL PROCESS SECTORS -*< - 



432 


000376 * 


000240 






START; 


NOP 






433 


000400* 


016706 


177426 






MOV 


SPOJNT,SP 


UNITIALIZE STACK 


434 


1^0040 4 " 


012767 


00000 1 


177664 




MOV 


SI ,TASAV 


j PRESET TRACK ADDRESS SAVE 


435 


000412' 


( 12767 


000001 


1 77660 




MOV 


* 1 ,SASAV 


1 PRESET SECTOR ADDRESS 


436 


0W0420* 


012767 


000100 


177654 




MOV 


»100,WDCNT 


jSET WORD COUNT FOP SINGLE DENSITY 


437 


000426' 


005067 


177704 






CLP 


FIN 


ICLFAR FINI FLAG 


438 


000432' 


005067 


177650 






CLR 


DEN 


j CLEAR DENSITY FLAG 


439 


000436* 


005067 


177642 






CLP 


DFMSTY 


JCLEAR DENSITY 


44P 


000442' 


005067 


177606 






CLP 


UNIT0 


{CLEAR UNITX0 AVAIL FLAG 


441 


000446 ' 


005067 


177604 






CLP 


UMIT1 


I CLEAR UNITM AVAIL FLAG 


442 


000452' 


005067 


1 77606 






CLR 


UTT 


{CLEAR UNIT UNDER TEST 


443 


000456 ' 


0PI5067 


177576 






CLR 


DwyN 


JCLEAR DRIVE # 


444 


000462' 


005067 


177646 






CLR 


SFRFL 


f CLEAR STATUS ERR FLAG 


445 


O00466* 


005067 


177640 






CLP 


NXERCT 


ICLEAR NON-EXISTENT MEMOHY FRFOP COUNT 


446 


000472' 


016767 


177316 


177552 




MOV 


DVID1 ,DVIP1X 


{ GET DRIVE COUNT 


447 


000500* 


122737 


000015 


00004 1 




CMPB 


« 1 5, a*41 


I IF RX02 FLOPPY WAS LOAD MEDIUM 


448 


000506' 


001033 








BNE 


FIRST 


J THEN 


449 


000510' 


105737 


000040 






TST* 


(3*40 


>IF DRIVE 


450 


000514' 


001013 








BNE 


01 


J THEN 


451 


000516' 


042767 


000001 


177526 




BIC 


SM ,DVID1X 


SKILL TEST FOR DRIVE 3 


452 


000524* 


032767 


000001 


177262 




BIT 


#l,DVIDl 


{WAS IT TO BE TESTED? 


453 


000532' 


001421 








BFQ 


FIRST 


I BR IF NO 


454 


000534* 


012767 


000260 


004662 




MOV 


»260,DNUM 


;SET DRIVE * FOP PRINT 


455 


000542' 


000412 








BR 


NI'AV 


{BP TO NOT AVAIL MSG 


456 


000544' 


042767 


000002 


177500 


Dl! 


BIC 


#2,DVID1X 


1 K ILL TFST FOR DRIVE 1 


457 


000552' 


032767 


000002 


177234 




BIT 


»2,PVID1 


J IF wAS TO BE TESTED 


458 


000560' 


001406 








BEQ 


FIRST 


I THEN 


459 


000562* 


012767 


000261 


004634 




MOV 


»2M »PNIJM 


{ SET DRIVE »J FOR PRINT 


460 


000570* 








NUAV| 








461 


000570* 


104403 


000000' 


005510' 




MsGNS, 


BEGIN, NUNT 


JASC1I MESSAGE CALL *ITH COMMON HEADER 


462 


000576* 


012767 


000001 


177510 


FIP5T: 


MOV 


«1,INT 


} SET INIT FLAG 


463 


000604' 


004767 


002470 






JSP 


PC , VSET 


{GO SETUP ADDRESS & VECTOR 


464 


000610' 


032777 


00400M 


177550 




BIT 


840f»0,0RXCS 


•tF DEVICE IS 


465 


000616* 


001005 








BNF 


GO 


{RX01 THEN 


466 


000620' 


104403 


000000' 


005476' 




MSGNJ , 


BFGTN , DRP4 


{ASCII MESSAGE CALL WITH COMMON HEADER 


467 


000626' 


000 3 67 


000324 






JMP 


FIN J 


{GO DROP MODULE 


468 


000632' 


004767 


000324 




GOs 


JSP 


PC, JNTIAL 


{INITIALIZE DEVICE --»D0 MOD 1,0 


469 


000636' 


005767 


177474 






TST 


FIN 


{IF FINI FLAG 


470 


000642' 


001 145 








BNE 


FINI 


> MOT SET THEN 


471 


000644 * 


004767 


001 364 






JSP 


PC, STATUS 




472 


000650' 


005767 


177462 






TST 


FIN 


{IF FINI FLAG 


473 


000654' 


001 140 








BNE 


FINT 


{NOT SET, THEN 


474 


000656' 


005067 


177432 






CLP 


INT 


{RESET INIT FLAG 


475 


000662* 


004767 


001256 






CALL 


SFLO 




476 


000666* 


000240 






RESTRT I 


NOP 






477 


000670' 


005767 


177426 




PGNDOl 


TST 


INLOOP 


•IF INLOOP 


478 


00067 % ' 


001042 








BNE 


B*LOOP 


j NOT SET, THEN 


479 


000676' 


005767 


177422 






TST 


1TBYPS 


{IF INITIALIZE BYPASS FLAG 


480 


000702' 


001006 








BNE 


EDBYPS 


{NOT SET, THEN 


481 


000704* 


016767 


177370 


177362 




MOV 


SASAV,SA 


{ PRESET SECTOR STARTING ADDRESS 


482 


000712' 


016767 


177360 


177352 




MOV 


T AS 6 V , TA 


j PRESET TRACK STARTING ADDRESS 


483 


000720' 


005767 


17741 2 




EPBYFs: 


TST 


FIN 


{IF FINI FLAG 


484 


000724' 
000726' 


001026 








BNE 


BKLOOP 


I NOT SET, THEN 


485 


104415 


00000? ' 


000124* 




GF.TPAS 


•BEGIN , RBUFVA 


! GET PHYSICAL ADDRESS FROM lb-BlT 


486 


000734* 


10441 4 


000000 » 






GKBMFS 


, BFGTN 


; GET WRITE BUFFER INFORMATION 
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487 


000740' 


004767 


000266 




WPITEi 


JSR 


DC, OUTPUT 




488 


000744* 


005767 


177366 






TST 


F IN 


J TEST FINI FLAG 


489 


000750* 


00101 4 








BNE 


BKLOOP 


{IF SET THEN BR 


490 


000752' 


004767 


000602 




READ: 


JSP 


PC, INPUT 




491 


000756' 


005767 


177354 






TST 


FIN 


; TEST FINI FLAG 


492 


0R0762' 


001007 








BNF 


8>*'L0OP 


J IF SET THEN BR 


493 


000764 ' 


004767 


001 1 16 






CALL 


TSS 


;G0 UPDATE SECTOR - DO MOD 4.0 


494 


000770* 


012767 


00000 1 


177324 




MOV 


* 1 , INLOOP 


; SET INLOOP FLAG 


495 


000776* 


104413 


000000 * 






ENDTTS, 


, BEG IN 


•SIGNAL END OF ITERATION. 


496 
















{MONITOR SHALL TEST END OF PASS 


497 


001 002* 


005067 


177314 




BKLOOP! 


CLR 


INLOOP 


j CLEAR INLOOP FLAG 


498 


001006' 


012767 


000001 


177310 




MOV 


M , ITBYPS 


SSET INITIALIZE BYPASS FLAG 


499 


00101 4' 


005767 


177 3fc" 






TST 


TSSFLG 


; IF UNIT TSS 


500 


001020' 


001453 








BFQ 


DOUNTL 


{IS DONE, THEN 


501 


001022* 


005067 


177272 






CLR 


TSSFLG 


jCLEAR FLAG FOR TSS DOnE 


502 


001026* 


004767 


002214 






CALL 


UONCK 


JC ALL UNIT DONE CHECK • DO MOD 8.0 


503 


y 1032' 


005767 


17726=^ 






TST 


UTPONE 


JIF UNIT DONE 


504 


0010 36 ' 


001442 








BEQ 


IS 


{NOT SET, THEN 


505 


001 040 ' 


062767 


00001 2 


177224 




ADD 


* 12, TA 


•INCREMENT TRACK ADDRESS 


506 


ki01 046 ' 


022767 


0001 1 4 


177216 




CMP 


M 14, TA 


{SEE IF DONE TRACKS 


507 


001054* 


103033 








BHIS 


IS 


{IF NOT: BP 


508 


001056' 


016767 


17721 4 


177206 




MOV 


TASAV, TA 


JPESET TRACK ADDRESS 


509 


001064' 


005067 


177234 






CLP 


ITBYPS 


jCLEAR INITIALIZE BYPASS FLAG 


510 


901070' 


005267 


177204 






INC 


S*SAV 


{BUMP STARTING SECTOp ADDRESS 


511 


001074' 


022767 


000*04 


177176 




CMp 


If 4, S ASA V 


jIF SFCTORS = DONE (THREE) 


512 


001 102* 


001020 








BNE 


1 S 


J THEN 


513 


001 104' 


012767 


000001 


177166 




MOV 


8} ,SASAV 


1 RESET STARTING SECTOR 


514 


001112' 


005267 


177160 






INC 


TASAV 


IRUMP STARTING TRACK ADDRESS 


515 


001 1 16' 


022767 


00001 3 


177152 




C M P 


«11., T ASAV 


1 IF TRACKSsDONE (TEN) 


516 


00 1 1 2 4 ' 


001007 








BNE 


1 S 


J THEN 


517 


00 1 126' 


012767 


000001 


177142 




MOV 


#1 , TASAV 


} RESET TRACK STARTING ADDRESS 


518 


001 134* 


005167 


177146 






COM 


DFN 


{CHANGE DENSITY 


519 


001 14">* 


004767 


0015 70 






JSR 


PC,DENCH 


{ SET DEVICE DENSITY 


520 


001 1 44' 


004767 


0007 7 4 




IS! 


CALL 


SFLD 




521 


001 150' 


005767 


177162 




POUNTLi 


TST 


FIN 


{DO UNTIL FINI FLAG 


522 


001 154' 


P01644 








BEQ 


RFSTPT 


J SET 


523 


001 156' 








fini s 








524 


001 156* 


104410 


00000P ' 






ENDS , BEG 


{DROP THE MODULE 


525 
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XRXBC0 , 


,P11 05-APP-79 


11152 










526 










; M 0P 1, 


INTI ALIZF DEVICE 


527 
















528 


001 162* 


012767 


400 01* 


177072 


I M T I A L S 






529 


0«1 1 70' 


016777 


1 7 7 n 6 6 


177170 








530 


001 176* 


0^4767 


00 3 142 






JSR 




5 31 


001 2F2' 


W05767 


1771 3P 






TST 


FIN 


532 


0012*6' 


001010 








BNE 


ENDI NT 


533 


001210* 


005777 


. _ _ 
1 






TST 


ORXCS 




001214* 


100005 








BPL 


E N D I N T 


5 35 


0^1216' 


104403 


000000 ' 


005450' 




MgGN S ; 


RFGl N , DPP l 




001224* 


004767 


002564 






JSR 


PC ,TURP 


537 


CO 1 2 30' 


000207 






END INT 1 


PTS 


PC 


* 
















539 




























Wp ITE 


SUBROUTINE ' 


















|* \ 


001232* 


012767 


00000 1 


J / t V' JV 


OUTPUT f 


MOV 


# 1 , WTF 


\\. 


001 240* 


004767 


[inni 1 A 

IOYIyj I it 






JSP 


PC » 0HRUF2 


Xak 


001244* 


005767 


177066 






TST 


FIN 




001250' 


001050 










F^DOUT 


546 




012767 


000260 


H P 1 1 yi 






#260,PTYN 


547 


001 260' 


016767 


177000 








U T T , C M D 


548 


001266' 


052767 


000 105 


176766 




BIS 


* l 05 » V 


549 


05*1274' 


056767 


1 7 700 4 


176760 






riifMeTV.ciiii 


550 


001 302' 


016777 


176754 


1 77056 




MOV 


V- IJ 1 Av u 


551 


001 310* 


004767 


003 j 40 






JSP 


PC , A WTP 


552 


001 31 4* 


0057* 7 


177016 






TST 


FIN 


553 


001 320* 


001024 








BtF, 


E'iDOUT 


554 


001 322* 


016777 


176746 


1 77040 




MOV 


SA,PRXDB 


555 


001 330' 


004767 


003120 






JSR 


' PC » A WTP 


556 


001 334* 


005767 


176776 






TST 


FIN 


557 


001 340* 


001014 








BNE 


ENrOUT 


558 


001342' 


016777 


176724 


177020 




MOV 


TA,flPXDR 


559 


001 350' 


004767 


P017 6d 






JSP 


pr , INTER 


560 


001 35 4' 


005767 


176756 






TST 


FIN 


561 


M0136?' 


001004 








B*-'E 


F^'DOUT 


562 


001362' 


022767 


00P0C3 


176740 




CMp 


«3, PTRYFL 


563 


001370' 


001333 








BNE 


1 S 


564 


001 372* 


005067 


176672 




ENPOUTl 


CLP 


WTF 


565 


001 376' 


000207 








RT5 


PC 


566 

















JSET INT COMMAND 

IINI1 UNIT 

tOO AWAIT DONE 

»IF FIN! FLAG 

I EQUALS ZERO THEN 

>SEF IF ERROR ON IMIT 

JIF NOTt BR 

J ASCII MESSAGE CALL WITH COMMON HEADER 
f 00 TEST DROP CLEAN-UP 
f RETURN 



JSET WRITE FLAG 

? THEN 0/P RX02 BUFFER - DO MOD 2.1 

>IF FINI FLAG 

J EQUALS ZERO THFN 

j RESET RETRY COUNTER- ASC 1 1 "0" 

J SELECT DRIVE 

JSET TO WRITE SECTOR + INT ENABLE 

JSET DENSITY 

{ LOAD COMMAND 

5G0 AWAIT TRANSFER READY 

j I F FINI FLAG 

J EQUALS ZERO THEN 

J LOAD SECTOR ADORESS 

J GO AWAIT TRANSFER READY 

J TF FINI FLAG 

; EQUALS ZERO THEN 

jLOAD TRACK ADDRESS 

JWAIT FOR INTERRUPT 

} IF FINI FLAG 

J^OT SET, THEN 

jIF RETRY FLAG 

J EQUALS 3 THEN 

jCLFAR WRITE FLAG 

} RETURN 



PXBC DEC/X11 SYSTEM EXERCISER MODULE 



M AC Y 1 1 30Af 1/52) 05-APR-79 11:54 PAGE 14 



XRXBCO.PU 05-APP-79 


11 S 52 












567 










;MOD 2,1 


OUTPUT RX02 BUFFER 




568 
569 


001 400' 


012767 


000001 


176654 


0MBUF2I 


MOV 


S 1 ,CMD 


•SET FILL BUFFER COMMAND 


570 


001 406' 


056767 


176672 


1 76646 




BIS 


DEN5TY ,CMD 


JSET DENSITY 


571 


001414' 


016701 


176516 






MOV 


■*«MJFEA,M 


; GET FXT, ADH. BITS 


572 


001 420' 


000301 








SWAB 


R1 


J 


573 


001422' 


050167 


176634 






BIS 


P I ,CMD 


JSE1 EXT. A OR , BITS 


574 


001 426' 


016777 


176630 


176732 




MOV 


C k 'D,apXCS 


;LOAD COMMAND 


575 


001434' 


004767 


003014 






JSF 


PC, AwTR 


JWAIT FOR " TR " 


576 


001 4 40* 


005767 


176672 






TST 


FTM 


! T F FINI FLAG 


577 


001 444 ' 


00104 $ 








BNE 


FND0U2 


jEuUALS ZERO Tnl> 


578 


{*01446* 


016777 


176630 


176714 




MOV 


*nCM»0PXPB 


;lopd ^ord cou^t for output buffer 


579 


001 45 4* 


005267 


176646 






INC 


RVRVPS 


jSET BREAK BYPASS FLAG 


580 


001 460* 


004767 


002770 






JSP 


PC, AWTR 


;WA1T FOR "TP" 


581 


1*01 464 * 


005067 


176636 






CLP 


RKBYPS 


jCLEAP BREAK BYPASS FLAG 


582 


(101 470* 


005767 


176642 






TST 


FIN 


JIF FIM FLAG 


583 


001 47 4 * 


001 030 








B*'E 


END0V2 


{EQUALS ZERO THFN 


584 


M01476* 


016777 


1 76432 


1 766t>4 




MOV 


wr-UFPA,aRXDP 


•LOAD BASF ADDRESS FOR OUTPUT BUFFER 


585 


001 50 4 ' 


00 4767 


002634 






JSP 


PC , AWDN 


j '/'AIT FOR "DOME" 


586 


0^1510* 


005767 


176622 






TST 


F 1 K 


?IF FINI FLAG 


587 


00151 4' 


001020 








BNE 


EMP0H2 


» EQUALS ZERO THEN 


588 


0*1516' 


004767 


002442 






C*LL 


CKNXEP 


JC ALL CHECK NON-EXISTENT MEMORY ERRORS 


589 


001522* 


005777 


176640 






TST 


8PXCS 


j IF DEVICE FRPOP BIT 


590 


001526' 


10001 3 








BPL 


K> DOU? 


J IS SET THEN 


591 


001530' 


004767 


0^2526 






CALL 


SliPTRO 


jC ALL SETUP PPINT REGISTERS 


592 


001534' 


012767 


000035 


176344 




MOV 


835,FPRTYP 


JSETUP FILL BUFFER ERROR 


593 
594 


001542* 


104405 


00M00P ' 


000000 




HRDERS 


, R F I N , f* U L L 


> BUFFER FILL FPPOR 


595 












•*««»**«*****««*««»««*»**«#««**«««««*«»*«****«»****«*«***#«**#«« 


596 


001550' 


104402 


00000c ' 


005442 ' 




MSGSS , 


BEGIN, BFEP2 


; ASCII MESSAGE CALL WITH NO HEADER 


597 


^01 556' 


000207 






FNfOU? ! 


PTS 


PC 


; RETURN 


598 



















it 
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599 










; M 0D 3, 


,0 READ 






60*1 


















601 


0P 1560 


01276 7 


000260 


003642 


INPUTS 


MOV 


#260,PTYN 


JRESFT RETRY COUNTER-ASCII "0" 


602 


00 1 566 * 


01676 7 


176472 


1 76466 


1SI 


MOV 


UTT#CMD 


ISE1.KCT DRIVE 


603 


1 5 7 4 * 


05 2767 


0001 07 


176460 




BIS 


« 107, CMD 


jSET READ COMMAND ♦ INT fcNB 


604 


001602* 


056767 


176476 


176452 




BIS 


DFNSTY#CMD 


JSET DENSITY 


6kj5 


001610* 


016777 


176446 


176550 




MOV 


C'-'D, RFXCS 


; LOAD COMMAND 


606 


001616* 


004767 


002632 






JSP 


PC, AwTR 


SGO AWAIT TRANSFER READY 


6P7 


001622' 


005767 


176510 






TST 


FIN 


I IF FINI FLAG 


608 


i)01626* 


001023 








BfJfc' 


FNI3IN 


,"NOT SET, THEN 


609 


001 630* 


016777 


1 76440 


176532 




MOV 


SA,PRXD* 


; LOAD SECTOR ADDRESS 


610 


001636' 


004767 


002612 






JSR 


POAtfTR 


J GO AWAIT TRANSFER READY 


611 


001642* 


005767 


176470 






TST 


FIN 


;IF FINI FLAG 


612 


001646' 


001013 








RNE 


E N D I N 


J nOT SET, THEM 


613 


001650* 


016777 


1 76416 


176512 




MOV 


TA,0RXDP 


S LOAD TRACK ADDRESS 


614 


k501 656* 


004767 


001456 






JSR 


PC , INTER 


I^AIT FOR INTERRUPT 


615 


001662* 


022767 


00000 3 


176440 




CM P 


• 3,RTRYFL 


|IF RETRY FLAG 


616 


001 670* 


001336 








RNE 


IS 


J EQUALS 3, THEN 


617 


001672' 


004767 


000002 






JSR 


POTNRUF2 


; 1 HEN GET RX02 RUFFFR - DO MOD 


61 R 
619 


001676' 


000207 






END TN | 


PTS 


PC 


1 RETURN 
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620 










•MOD 3. 


1 INPUT 






621 


















622 


001 700 * 


005767 


176 4 3f 




I f JRUF2! 


TST 


S^RFL 


j IK STATUS ERROR NOT SET 


623 


001704' 


001077 








Rf.E 


ENDJM? 


; T H E N 


624 


001 706* 


012767 


0O000 3 


1 76346 




MOV 


8 3, CMD 


jPET EMPTY BUFFER COMMAND 


625 


0(^1714* 


056767 


176364 


1 76340 




BIS 


DF N5TY»C*n 


S SET TENSITY 


626 


0O1722* 


016701 


176202 






MOV 


P r UFE A , R 1 


1 GET FX1, ADR, BITS 


627 


001726* 


000301 








S-'AR 


PJ 




628 


M 1 7 3*>* 


050167 


176326 






BTS 


Pi , C M c 


; SET EXT, ADR, PITS 


629 


001734* 


H6777 


176322 


176424 




mqv 


Cf-D,aRXCS 


JEUSE LOAD COMMAND 


630 


U01 742' 


00 4 767 


002506 






JSP 


PC , A WTR 


S*A1T FOR " T R " DO MOT U.TR 


631 


001746' 


005767 


176364 






TST 


KTN 


f IF FINI FLAG 


632 


001752' 


001054 








HNE 




jFQI'ALS ZEP^ 


633 


001 754* 


316777 


176322 


176406 




MOV 


WPCN'T, 0PXDB 


S THEN LOAD -"ORD COU^T FOR INPUT BUFFER 


634 


001 762* 


H05267 


17634c 






INC 


RKBYPS 


;SET BREAK BYPASS FLAG 


635 


001 766* 


O0476 7 


002 46 2 






JSR 


PC » A WTR 


JwAIT FOR " T R " DO MOD U.TR 


636 


001772' 


005067 


17633- 






CLP 


P l bYPS 


jCLEAP BREAK bYPASS FLAG 


637 


001 776* 


005767 


1 76334 






TST 


FTf 


!IF FINI FLAG 


638 


002002' 


H0104 








P U I, 


F V D I M 2 


; EQUALS ZERO 


639 


002004* 


016777 


176116 


1 76 356 




MOV 


RRUFPA, ARXDB 


JTHEN LOAD BASE ADDRESS FOR INPUT 1-UFFtR 


640 


002012* 


004767 


»02326 






JSR 


PC, A WD N 


;»A1T FOR "DONE" 


641 


002016' 


005767 


176314 






TST 


FTN 


JtF FINI FLAG 


642 


002022 ' 


001030 








RFF. 


E''0TN2 


; EQUALS ZERO Then 


643 


002024 * 


005777 


176336 






TST 


8PXCS 


SlF DFVICE FRROP RIT 


644 


01*2030* 


100021 








BPL 


IS 


;SET, THEN 


645 


0O2032* 


004767 


002126 






CALL 


C»<NXER 


JCALL C H ECK NON-EXISTENT "EMORY ERRORS 


646 


002,336' 


0O5777 


176324 






TST 


0PXCS 


; I F DEVICE FRROP BIT 


647 


002042 ' 


100020 








BPL 


ENDIN2 


SIS STILL SET, THEN 


648 


007P44' 


004767 


00221 2 






CALL 


Sl'PTRG 


•CALL SETUP PPIM REGISTERS 


649 


(' 02050* 


k. 12767 


000? 3/i 


176030 




MOV 


* 30, EPRTYP 


S SETUP DATA TRANSFER ERROR 


650 
















»«****«*««»*«*«**»*****«««•««*«*****»•*»«* 


651 


00?O56 ' 


104 405 


* 


000100 




hPDFPS 


, REG I N , NULL 


{EMPTY BUFFER ERROR 


652 












;«*«***«#»*»«**««*#******»**•*»**«*»*«*»**«*#*««««***«««*«#»**#« 


653 


002064 ' 


104402 


000000 * 


005434' 




MSGSS, 


RFG I M , BFEp l 


S ASCII MESSAGE CALL KITH NO REAPER 


654 


00 2O7 2' 


000404 








bP 


E N D I N 2 


J PR TO EXIT 


655 


002074' 








IS! 








656 


00207 4' 


104412 


0000001' 


0001 26' 




CPATAS.BEGP ,PR!JFPA 


S REQUEST FOR MONITOR TO CHEC* DATA 


657 


0021 02' 


002104* 








. + 2 




1 IF ERROR, CONTINUE 


65P 


J021 04* 


000207 






E'JDIN2I 


PTS 


PC 


jRETtiRN 


659 
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SEU 0016 



6fc>0 










; w D 4 


SECTOR 
























662 




062767 


000v10 3 


176160 


TSS 1 


ADD 


# 1 f SA 


jBUMP SECTOR ADDRESS 


663 


002 1 1 4 * 


022767 


0000 3 3 


176152 




C W P 


* 33 » SA 


JSEF, IF DONE SECTORS 






101401 










' ? 


J IF SO I BP 




5(52124' 












E u I 55 


• of TURN 


666 




016767 


176146 


176140 




MP V 


SASA V / SA 


jRESET SA 


667 


002 134' 


012767 


000 1 


] 76156 






"'M Our 


ISET TSS FLAG" (UNIT PONE WITH 




2 1 4 2 * 


000207 






t- M ri T c e a 
c- V • Od I 


RTS 


PC 




Z~L 
671 










• MOD 




itviTT trnn tfct • 












U 1 4 1 run * C Q t * 




672 


















67 3 


002 14 4 


005767 


176110 




v LD 1 




DPVN 


{SEE IF DRIVE 


67 4 


002 1 50 * 


00 1415 








RFQ 


2S 


J 1 F SO t BP 


675 


02 1 52 * 


005067 


176102 






CLP 






676 


002156' 


k)05767 


17b074 






TST 


U^-ITl 


JSEE IF UNIT 1 AVAILABLE 


677 


002162* 


001401 








BFO 


1 S 


SIF SOJ BR 


678 


002164' 


000767 








8P 


SFLP 


JGO SEE IF UMT IS AVAILABLF 


679 


002166* 


012767 


000020 


176070 


is: 


mov 


»20,UTT 


|SET UNIT UNDER TEST 


680 


002174' 


012767 


000261 


003222 




MOV 


#261 ,DNUM 


{SET DRIVE NUMBER FOR PRINTS 


681 


002202* 


00041 3 








BR 


FMDSEL 


1 RETURN 


6P2 


002204' 


005167 


176050'' 




2S! 


COM 


PPVN 


JS^ITCH UNITS 


683 


002210' 


005767 


17604c* 






TST 


U^IT0 


JSEE IF UNIT AVAILABLE 


684 


002214* 


001401 








BFQ 


3$ 


fIF 50! BR 


685 


002216' 


000752 








PR 


SFLD 


} SELECT NEXT 


686 


002220' 


t.'05067 


176040 




3S! 


CLP 


UTT 


1 SELECT DRIVE 


687 


002224' 


H12767 


000260 


003172 




MOV 


1260, DNUM 


JSET DRIVE NUMBER FOR PRINTS 


688 


002232' 


000207 






ENOSELl 


RTS 


PC 


j RETURN 


689 
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690 
691 



;MOD 6,0 DEVICE STATUS 



692 


002234' 


000240 






STATUS! 


NOP 










693 


002236* 


004767 


000120 




U0! 


JSP 


pr ,!1NT0 


{CHECK STATUS UNIT P 


- DO ^UD 


6.1 


694 


002242' 


005767 


1760M6 






TST 


U N I T 


;TF UNIT IS 






695 


002246' 


001012 








BNE 


Ul 


{AVAIL » THEN 






696 


0^2250' 


005767 


176040 






TST 


p?t 


J IF 1MT FLAG 






697 


002254* 


001407 








BFQ 


Ul 


SIS SET. THFN 






69i? 


002256' 


005067 


176002 






CLP 


UTT 


;SET UNIT=0 






699 


002262' 


012767 


000260 


0031 34 




MOV 


if 260, DNUM 


JSET DRIVF « FOR PRINT 






700 


002270* 


004767 


000322 






JSR 


pr, ONSET 


{SETUP DENSITY U N I T 


- DO "00 


6.3 


701 


002274' 


004767 


000200 




Ul ! 


JSP 


PC # UMT 1 


»CHFC* STATUS U«IT 1 


" 00 NOD 


6.2 


702 


>*02 30''!' 


005767 


175752 






TST 


UMT1 


? IF UNIT 1 IS 






703 


002304' 


00101 4 








BME 


IS 


fAVAIL, THEN 






704 


002306* 


005767 


176002 






TST 


INT 


JIF INIT FLAG 






705 


00231 2' 


001 422 








BFQ 


E'-DST 


JTS SET, THEN 






706 


00231 4* 


012767 


00vH 2- 1 


1 75742 




MOV 


»?0,UTT 


JSET IIMfsl 






707 


002322' 


(112767 


000261 


003074 




MOV 


,ONUM 


JSET DRIVE ft FOO PRINT 






708 


002 3 30* 


004767 


000262 






JSP 


PC, ONSET 


{SETUP DENSITY UNIT 1 


-DO MOD 


6.3 


709 


002334* 


00041 1 








BP 


E-OST 


;RR TO END STATUS 






710 


002336' 


t'05767 


175712 




IS! 


TST 


UMT0 


JIF UNIT 






711 


002342* 


001406 








BEQ 


E I! DST 


jNOT AVAIL, THEN 






712 


002 34 4* 


104403 


00P0PC* 


005 460' 




MSG^S, 


rBFGIf»0PP2 


JASC1I MESSAGE CALL wlTh 


COMMON 


HEADEK 


713 


002352' 


012767 


00000 1 


175756 




MOV 


# 1 # F I •>! 


jGO DPOP MODULE 






714 
715 
716 
717 
718 


002 360' 


(-(00207 






E'JDST! 


PTS 


PC 


5 RETURN 














;MQD 6. 











719 
720 
721 
722 
723 
724 
725 
726 
727 
7 2 8 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 



002362' 


032767 


000001 


1 7566? 


UNT0S 


BIT 


»l,nviDiX 


J IF U JIT 


002370* 


t.014 37 








BFQ 


IS 


! SELECTED , THEN 


002372* 


f 12767 


00? 1 i 


175662 




MOV 


«1 3»C"D 


; R E A D STATUS UNIT 


002400' 


056767 


175700 


175654 




BIS 


PFNSTYifMP 


! SET DENSITY 


002406' 


016777 


175650 


175752 




MOV 


CDfPRXCS 


IPENO COMMAND 


00241 4* 


004767 


00172 4 






J5R 


PC, AWDN 


J GO AWAIT DONE 


M02 4 2H* 


005767 


175712 






TST 


FIN 


jIF FINI FLAG 


002424' 


001024 








BNE 


ENDHT0 


J FQUALS EEPO THEN 


002426' 


017700 


175736 






MOV 


WRXDB , R0 


; GET RXFS 


002432' 


032700 


000200 






BIT 


»200»P0 


J IF DRIVE ROY 


002436' 


001017 








BNE 


ENDUT0 


;N0T SET, THEN 


00244O' 


012767 


000260 


002756 




MOV 


«260,DN!IM 


• SET DRIVE « FOR PRINT 


002446' 


012767 


000006 


175432 




MOV 


«h,FRPTYP 




002454' 


104405 


000000' 


000000 




****** 

HPDER8 


, BEGIN, NULL 


jUNIT NOT AVAILABLE 












•*•«*«««**«•*«***««»»«*«»#**»#*»«»*»*»*#*«#»*»«*«#*#«*#«*»*«*•«* 


002462' 


104402 


000000' 


005510' 




MSGSS, 


BEGIN, NUNT 


J ASCII MESSAGE CALL w I T H NO HEADER 


002470' 


012767 


177777 


175556 


IS! 


MOV 


#-1 ,UN1T0 


J DESELECT UNIT 


002476' 


000207 






FNDUT0! 


PTS 


PC 


! RETURN 
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740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 



•MOD 6.2 "NTT 1 STATUS 



P02500' 
0025P6 ' 
002510' 
002516' 
002524' 
002532' 
002536' 
002542' 
002544' 
002550' 
002554' 
002556' 
002564' 



032767 
001437 
012767 
056767 
016777 
004767 
005767 
001024 
017700 
032700 
001017 
<S12767 
012767 



000002 175544 UNT1J 



000033 
175562 
175532 
001606 
175574 

175620 
000200 

000261 
000006 



175544 
175536 
175634 



002640 
175314 



BIT 
BEO 
MOV 
BIS 

mov 

JSH 
TST 
BNE 
MOV 
BIT 
BNE 
MOV 
MOV 



#?, DVID1X 
IS 

•33#CMD 

PF-NSTY#CW> 
C M D,aPXCS 
PC, AWDN 

FIN 

FNPUT1 
faRXPB,B0 
#200, P0 
ENDUT1 
#261 ,PNUM 
#6,F.RPTYP 



J IF UNIT 1 

I SELECTED * THEN 

j READ STATUS UNIT 1 

JSET DENSITY 

jSEND COMMAND 

J GO AWAIT DONE 

> IF FIN I FLAG 

J EQUALS ZERO THEN 

jPEAD PXES 

JIF DRIVE RDY 

|NOT SET, THEN 

ISET DRIVE * FOR PRINT 



002572* 104405 000000* 000000 



I ###«###♦#*#»###**###*♦##»###♦*##*####*######♦#####♦*♦#•»*####### 

HPDEP8, BEGIN, NULL jUMT 1 NOT AVAILABLE 



002600' 
002606* 
002614' 



104402 
012767 

000207 



00000fV 
177777 



005510' 
175442 



MSGSS, BEGIN, HUNT 
IS! MOV l-l.UHITl 

ENDUT1! PTS PC 



I ASCII MESSAGE CALL wlTH NO HEADER 
J DESELECT UNIT 1 
j RETURN 



;MOD 6.3 DEVICE DENSITY SETUP 



766 


002616' 


012767 


000013 


175436 


ONSETS 


MOV 


#13,CMD 


f SET READ STATUS 


767 


002624* 


056767 


175434 


175430 




BIS 


UTT,CMD 


J SET UNIT 


768 


002632' 


016777 


175424 


175526 




MOV 


Cf'D,iaPXCS 


; SEND COMMAND 


769 


002640' 


004767 


001500 






JSR 


PC, AwDN 


JGO AWAIT DONE 


770 


002644' 


005767 


175466 






TST 


FIN 


jIF FINI FLAG 


771 


002650' 


001030 








BNE 


XrNSET 


f IS ZERO, THEN 


772 


002652' 


012767 


00001 1 


175402 




MOV 


#ll,C^D 


;SET SINGLE DENSITY 


773 


002660' 


056767 


175400 


175374 




BIS 


UTT»CMD 


JSET UNIT 


774 


002666' 


016777 


175370 


175472 




MOV 


C w D,0RXCS 


j SEND COMMAND 


775 


002674' 


004767 


001554 






JSR 


PCAWTR 


JGO AWAIT " T R " 


776 


002700* 


005767 


175432 






TST 


FT N 


J IF FINI FLAG IS 


777 


002704* 


001012 








BNE 


XDNSET 


JZERO 


778 


002706* 
002714* 


016777 


175462 


175454 
005716' 




MOV 


VARIFY, BRXDb 


; SEND VAgIFY WORD 


779 


104403 


000000' 




H5GNS 


BFGJN,5ETSD» 


J ASCI I MESSAGE CALL WITH COMMON HEADER 


780 


002722* 


004767 


001 416 






JSR 


PC, AWDN 


» WAIT FOR "DONE" 


781 


002726' 


004767 


000440 






JSR 


PC, SECK 


JGO CHECK FOR ERROR 


782 


002732' 


000207 






XONSETl 


PTS 


PC 


» RETURN 
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784 
785 










;MOD 7. 






786 


002734' 


000240 






DENCH: 


NOP 






787 


002736* 


005767 


175314 






TST 


UNIT1 


J IF UNIT 1 


788 


002742' 


001007 








BNE 


1 S 


HIS AVAIL 


789 


002744* 


012767 


000020 


175314 




MOV 


#20, UT 


ISET TO DO UNIT 1 


790 


002752' 


012767 


000 261 


002444 




MOV 


#261 ,DNtiM 


jSLT DRIVE # FOR PRINT 


791 


002760' 


000405 








BP 


2S 


J CONTINUE 


792 


002762' 


005067 


175300 




1 S l 


CLR 


UT 


•ELSE SET TO DO UNIT 


793 


002766' 


012767 


00026" 


002430 




MOV 


«260,DNUM 


JSET DRIVE » FOR PRINT 


794 


002774* 


005767 


17530b 




2S! 


TST 


DFN 


jIF DENSITY FLAG 


795 




001051 








BNE 


5S 


1 EQUALS ZERO (SINGLE DENSITY) THEN 


796 


O03002' 


012767 


0001 1 1 


175252 


3SJ 


MOV 


#111 #CMD 


jSETUP SET DENSITY = SINGLE COMMAND 


797 


003010' 


056767 


175252 


175244 




BIS 


UT,CMP 


JSETUP UNIT UNDER TEST 


798 


003016' 


016777 


175240 


175342 




MOV 


C M U, OPXCS 


I SEND COMMAND 


799 


003024' 


004767 


001424 






JSP 


PCAWTR 


!S*A1T FOR "TR" 


800 


003030' 


005767 


175302 






TST 


FIN 


jIF FINI FLAG 


801 


003034' 


001 103 








BNE 


E^DDNC 


! EQUALS ZERO THEN 


802 


003036' 


016777 


175332 


175324 




MOV 


V6RIFY,epXDB 


;SEMD VARIFY COMMAND 


803 


003044' 


104403 


000000' 


005734' 




MSGNS 


BEGIN, SSGLDN 


IASCII MESSAGE CALL *ITB COMMON HEADEF 


804 


003052' 


004767 


000262 






JSP 


PC, INTER 


JWAIT FOR "DONE" & INTERRUPT 


805 


003056' 


005767 


175254 






TST 


FIN 


HF FINI FLAG 


806 


003062 ' 


001070 








BNE 


ENDDNC 


I EQUALS ZFRO THEN SET 


807 


003064' 


005767 


175176 






Tsr 


UT 


; if 


808 


003070* 


001411 








BFQ 


4S 


{UNIT 1 WAS DONE 


809 


003072* 


005067 


1751 li- 






CLP 


UT 


JSET TO DO UNIT 


810 


003^76' 


012767 


00026H 


002320 




MOV 


#260,DNUM 


?SET DRIVE # FOP PRINT 


811 


003104' 


005767 


175144 






TST 


UMIT0 


JIF UNIT 


812 


1503110' 


00 10* 1 








BNE 


4S 


ITS AVAIL 


813 


0031 12* 


000733 








BR 


33 


ISfcT UNIT f* DENSITY 


814 


0031 14' 


012767 


000000 


175162 


4Si 


MOV 


«0,DENSTY 


}SET DENSITY=SINGLE 


815 


003122* 


000450 








BR 


ENDDNC 


J BRANCH TO END 


816 


003124* 


012767 


00051 1 


1751 3« 


5SS 


MOV 


#51 I ,CMD 


I ELSE SET DENSITYsDOUBLE COMMAND 


817 


003132' 


056767 


175130 


175122 




BIS 


UT,CMD 


JSETUP UNIT UNDER TEST 


818 


t'0 3140' 


016777 


175116 


175220 




MOV 


C'D,PRXCS 


;SE«D COMMAND 


81" 


003146' 


004767 


001302 






JSP 


PCAWTR 


JWAIT FOR "TP" 


820 


''03152' 


005767 


175160 






Tsr 


FIN 


| IF FINI FLAG 


821 


003156' 


001032 








BNE 


ENDDNC 


1 EQUALS ZERO THEN 


822 


003160' 


016777 


175210 


1 75202 




MOV 


VAPIFY,»PXDB 


j SEND VARIFY COMMAND 


823 


003166' 


104403 


000000 ' 


005750' 




MsGNS 


BFGIN , SDBLDN 


IASCII MESSAGE CALL WITH COMMON HEADER 


824 


003174 ' 


004767 


000140 






JSP 


PC, INTER 


jfcAIT FOP "DONE" & INTERRUPT 


825 


00 3200' 


005767 


175132 






TST 


FIN 


JIF FINI FLAG 


826 


003204' 


001017 








BNE 


ENDDNC 


j EQUALS ZERO THEN 


827 


003206' 


005767 


175054 






TST 


UT 


J IF 


828 


003212' 


0014U 








BEQ 


63 


jUNIT 1 WAS DONE 


829 


003214* 


005067 


175046 






CLR 


UT 


1 SET TO DO UNIT * 


930 


003220' 


M12767 


000260 


002176 




MOV 


#260,DNUM 


JSET DRIVE 8 FOR PRINT 


831 


003226* 


005767 


175022 






TST 


1JNIT0 


JIF UNIT 


832 


U03232* 


001001 








BNE 


63 


J A VIAL 


833 


003234' 


000733 








BP 


58 


JCONTINUE 


834 


003236* 


^12767 


000400 


175040 


6SI 


MOV 


#400,DENSTY 


J SET DENSITY s DOUBLE 


835 


003244' 


000207 






ENDDNCI 


PTS 


PC 


I RETURN 


836 
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837 








;''0D 8, 


- UNJT 






839 
















839 


003246* 


005767 


175012 


UDNCK! 


TST 


UTT 


I IF UNIT 


840 


003252* 


001006 






BNE 


1 S 


{UNDER TEST, THEN 


841 


003254* 


005767 


174776 




TST 


U^'ITl 


I IF UNIT 1 


842 


00326W* 


001003 






BME 


1 S 


J AVAILABLE* THEN 


843 


003262* 


005067 


17503 1 




CIP 


UTDONE 


jCLFAP UNITS DONE FLAG 


844 


P03266* 


00040 3 






BR 


X'IDNCK 


{PR TO MOD EXIT 


845 


003270* 


012767 


000001 


17 5020 181 


MOV 


II l , UTDONE 


jSET UNITS DONE FLAG 


846 


003276' 


000207 




XUONCKI 


PETUR*' 




J RETURN 


847 

















849 
850 
851 
652 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 



{MOD U.VS VECTOP SET UP 



003300' 0167PO 174504 

0W3304' fcl2720 003344' 

003310' 116710 174476 

003314* 016767 174466 

003322' 016767 174460 

003330' 6 2 76 7 000002 

003336' 000207 



175044 
175040 
175032 



VSETj MOV 
MOV 
MOVP 
MOV 
MOV 
ADD 
PTS 



VECTOR, R0 

«f TPUPTr (P0) + 

HP1 , CR0) 

AnDP,RXCS 

AHDP,RXDP 

82#RXDP 

PC 



JSET UP INTERRUPT HANDLER ADDRESS 

;SET HR LEVEL 

JSET ADDRESS OF RXCS 

J GET ADDRESS OF PXCS 

* SET ADDRESS OF DATA BUFFER 



003340' 

003340' 104400 000000' 
003344' 

003344' 000004 0^0000 ' c?03352* 



•MOD U.INTR INTEPPUPT HANDLER 
TWTER J 

EXITS, REGTN 



J EX IT TO MONITOR. MODULF WAIT FOR INTERRUPT. 



FIPQ$, BEGIN, }S 



t QUEUE UP TO CONTINUE AT IS AND RT I 



003352* 004767 

0^3356* 016700 

003362* 005720 

003 36 4* 016710 

003370* 000207 



00001 4 
174426 



JSP PC,SECK {GO CHECK FOP ERROR 

MOV VFCTOP,R0 J GET VECTOR ADDRESS 

TST (P0)+ ;PUMP POINTER 

MOV BP1,(R0) J ASSURE RESET TO BR LEVEL 

RTS PC 'RETURN 
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1H52 


874 








875 








876 


003372' 


005067 


174736 


877 


003376* 


057767 


174764 


878 


W03404 ' 


H05767 


174652 


879 


003 410' 


100404 




880 


003412* 


012767 


00000 3 


881 


003420' 


'^00423 




882 


003422' 


004767 


0(10634 


883 


0O3426' 


016767 


174632 


884 


003434' 


004767 


000422 


885 


003 440' 


004 767 


000026 


886 


00 3 44 4 ' 


005767 


1 74620 


887 


003450' 


001003 




888 


003452' 


004767 


0P0i?6fc 


889 


^03456' 


000402 




890 


003460* 


004767 


000122 


891 


003464* 


004767 


000160 


892 


0t>34 70 ' 


000207 




893 








894 
895 








896 








897 


H03 47 2 ' 


016705 


174642 


R9R 


'•103476' 


0427f5 


177761 


899 


003502 * 


022705 


O0001 


900 


0vi3 506 ' 


00101 5 




901 


<»O3510' 


012767 


00^00 1 


90 2 


JW3516' 


005767 


174564 


90 3 


003522' 


001 004 




904 


00352 4* 


104403 


00000 


905 


003532' 


000403 




906 


003534' 






907 


003534* 


104403 


000000 


908 


003542' 


i*00207 




909 








910 








911 








912 








913 


0M3 5 44 * 


012767 


000000 


914 








915 


00 355 2' 


104406 


00000" 


916 








917 


003560* 


005767 


174522 


918 


'133564 ' 


001 004 




9] 9 


003566' 


1 04402 


000000 


920 


00357 4' 


000403 




921 


003576' 






922 


003576' 


104402 


000000 


923 


003604* 


000207 




924 
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;MOD U.EC 
SECK 



2S: 

CL! 

ENDEC: 



EC 


STATUS ERPOF 




CLP 


SFRFL 


jCLEAR STATUS ERROR FLAG 


BIS 


PPXCS,C*0 


J GET PXCS 


TST 


C^D 


j SEE IF ERROR 


bMl 


IS 


JIF SOS BR 


MOV 


M,PTPYFL 


j SET RETRY FLAG, SO NO RETRY 


BP 


E? C FC 


J ELSE RETURN 


CALL 


SUPTRG 


} C ALL SETUP PRINT R EG I STEPS 


MOV 


UTT,C M D 


JSELECI DPIVE 


CALL 


DVEC 


jGF.T DEVICE ERROR. CODE 


CALL 


CKDNEP 


JCHFCK FOP DENSITY ERROR 


TST 


WTF 


J SEE IF WRJTt ERROR 


P-NE 


2S 


JIF SOJ BR 


CALL 


CKPDEF 


JCHECK READ ERROR 


bP 


CL 


JGO CLEAR ERROR 


CALL 


(TWTF.P 


J C ALL CHECK kRHF ERROR 


JSR 


PC » r LEAR 


JCLEAP ERRORS 


PTS 


Df 


; RETURN 



;MCD U.CKD^EP - C^ECK DENSITY ERRORS 



CKDNt'PS M 0V 
PIC 



C M P 



U77761 ,R5 
* 1 0,R5 
XDNFP 

DEN 



R*E 
MOV 
TST 
H'E 

MSG f; S,PEGTN,sETSDE 
BP X^NFR 

msg;js,pfgin,setdde 

PF1UPV 



•SETUP RXCS FOR ItST 
JCLEAR ALL HUT C M M A N t> 
J IF COMMAND WAS 
JSET DENSITY. THEN 
j SET F1NI FLAG 
J IF 

; SINGLE DENSITY, r H E N 

J ASCII MESSAGE CALL *IT*- CO'IN.ON HEADER 
• C ( i I INUE 

{ASCII MESSAGE CAI-L wITP COMMON HF AD EH 
{RETURN 



; MOD U.CKPDER - C^ECK READ ERRORS 



174334 CKRDEPi MOV 8^,FPRTYP 

;«*•*«»«•«»««**«*«*#*«*«»*««»♦««•*««**«*«*«»«**«««*«*»*««*****#«* 
004626' SOFERS, BEGIN, TABLE {READ ERROR 

{««**«««#•«**#*»*#»«*«***««»»**««**#««***«»»***««*********««#»**« 



1SJ 

2SI 



TST 


DEN 




j IF DENSITY FLAG IS 




BNE 


1 S 




JEUUAL TO ZERO (SINGLE) THE* 1 




MSGSS, 


BEGIH, 


rPTEPSD 


{ ASCII MESSAGE CALL *I1H NO 


HEADER 


BR 


2S 




J GO PRINT ERRORS 




MSGSS, 


PFG I N | 


,RTEPDD 


; ASCII MESSAGE CALL I-ITR NO 


HEADS R 


PETUF N 






J RETURN 
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XRXBC0 , Pi 1 05-APR-79 


1 1152 




925 










926 










927 


003606 * 


012767 


000000 


174272 


929 










929 


H0 3614' 


104406 


000000' 


004626' 


930 










93! 


003622* 


005767 


174460 




932 


0W3626* 


001004 






933 


U03630* 


104402 


000000 * 


005630 " 


934 


003636' 


00040 3 






935 


W03640* 








936 


003640' 


104402 


000000 * 


005606 * 


937 


003646* 


000207 






938 










939 










940 










941 










942 


003650' 


005267 


174460 




943 


003654' 


105767 


174470 




944 


003660' 


001421 






945 


003662* 


012767 


040000 


174372 


946 


003670* 


016777 


174366 


174470 


947 


003676' 


004767 


000442 




948 


003702' 


005777 


174460 




949 


003706' 


100006 






950 


001710* 


104403 


000000' 


005466* 


951 


001716* 


004767 


000072 




952 


003722' 


000431 






953 


003724 ' 


005267 


001500 




954 


003730' 


016703 


001474 




955 






177770 




956 


003740' 


010367 


174364 




957 


003744' 


022703 


000003 




958 


003750' 


001016 






959 










960 


003752' 


1044PI5 


000000' 


004626' 


961 










962 


003760' 


032767 


000001 


174030 


963 


003766' 


001 404 






964 


003770' 


012767 


000001 


174340 


965 


003776' 


00040 3 






966 


004000' 


M12767 


000260 


001 422 


967 


004006' 


005067 


174336 




968 


004012' 


000207 






969 











•MOD U.CKWTER - CHECK WRITE ERRORS 
CKWTEP: MOV *0,ERPTYP 

SCFFPS, BEGIN, TABLE | WHITE ERROR 

;«»««***««*****«***«»«**«*»«**»«**'»««»«***»******«•*#'»*#'»**«*#*«« 



1SI 
2S1 



TST 


DFN 




I IF DENSITY FLAG IS 




BNE 


IS 




J EQUAL TO ZERO (SINGLE) THEN 




MSGSS, 


,BEGTN i 


r WTEP5D 


I ASCII MESSAGE CALL wITh NO 


HEADER 


BP 


2S 




jGO PRINT ERRORS 




MSGSS, 


r BEG T N , 


, WTEPPH 


j ASCII MESSAGE CALL WITH NO 


HEAOFR 



•MOD U.CLP CLEAP ERPOPS 



INC 
TSTB 
BEQ 
MOV 
MOV 
JSR 
TST 
FPL 2S 
MSGNs, BEGIN, DRP3 



SF.RFL 
SPXSB 
2S 

* 40000, CMD 
CMD,PRXCS 
PC, A WON 
»RXCS 



JSR 

BP 

INC 

MOV 

PIC 

MOV 

CMP 

BNE 



PCiTDPP 
ENDCLR 
RTYN 
RTYN , F 3 
*177770,R3 
R 3 » PTPYFL 
»3#R3 
ENDCLP 



ISET STATUS ERROR FLAG 

ISEE IF R.E.C. ERROR 

j IF NOT! BR 

JSET COMMAND- INIT 

} RE IN ITIALIZE 

;GO AWAIT DONE 

jSEF IF ERROR ON INIT 

I IF NOT I BR 

j ASCII MESSAGE CALL WITH COMMON HEADER 
JGO DROP MODULE 

JBUMP RETRY COUNTER 

; GET COUNTER 

J MARK ASCII 

jSET RETRY FLAG 

I SEE IF DONE RETRIES 

jIF NOT ! BR 

{RECLASSIFICATION OF SOFT ERH 



BIT 

BEQ 
MOV 
BP 

3SI MOV 
fndclr: CLP 
PTS 



HPDFPS, BEGIN, TABLE 

;**««««•«*«**»«»***«****«««***»*»»#««***«**«**#*«**«**««**«*#«** 



»SRl 
3S 

•i,riN 

ENDCLR 
«260#PTYN 
SRXSB 
PC 



jSEE IF SHOULD DROP MODULE 
{IF NOT I BR 
{GO DROP MODULE 

JPFSET RETRY COUNTER 
{CLEAR ERROR 
{RETURN 
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XPXBC0.P11 05-APP-79 


1 1 * 52 


970 








971 








972 


004014' 


004767 


000242 


973 


004020' 


005067 


174236 


974 


004024 ' 


004767 


000032 


975 


004030' 


005767 


174302 


976 


004034' 


00101 1 




977 


004036' 


U12767 


0P0tf 34 


978 








979 


004044* 


104405 


0000CHJ 


980 








981 


004052' 


H12767 


00000 J 


982 


004060' 


0002P7 




983 








984 








985 








986 








987 


0O4462' 


000240 




988 


004064' 


fc'52767 


0<?C?01 7 


989 


004072' 


104415 


000000 


990 


004100' 


016701 


174256 


991 


004104' 


016702 


174254 


992 


0041 10* 


000302 




993 


0to4112' 


050267 


174144 


994 


0041 16' 


016777 


174140 


995 


004124' 


005267 


174176 


996 


0041 30' 


004767 


000320 


997 


^04134' 


005067 


174166 


998 


0P!41 40* 


005767 


174172 


999 


9 4 1 4 4 ' 


001006 




1000 


0041 46' 


010177 


174216 


1001 


004152* 


004767 


000166 


1002 


004156* 


004767 


000002 


1003 


004162* 


000207 




1004 









{MOO U.TDRP TFS T DROP CLEAN-UP 



174042 2S! 



CALL 
CI R 
CALL 
TST 

BNE 
MOV 



SUPTPG 
C^D 
DVEC 
FIN 

ENiDTDR 
#34,ERRTYP 



{CALL SETUP PRINT REGISTERS 

•CLEAR COMMAND WORD 

{ GET DEVICE EPROR CODE 

{IF FIM FLAG 

{EQUALS ZERO THEN 



{###***####♦#♦###♦###*####*#♦#***########*####*«###♦♦#♦##*##*«## 

HRDEPS, BE GIN, TABLE {INITIALIZE ERROR 

;#***•****««*»«*»*««*«**««»«*»»«**»«*«*#«»#*»«*«**«**«*****««««« 

MOV #1»FIN iGO DROP MODULE 

PTS PC 









DVEC! NOP 




1 


BIS 


s 1 7,C W D 


;OR ERROR CODE COMMAND 


GFTPAS, BEGIN, DEC VA 


j GET PHYSICAL ADDPESS FROM \b< 


FOV 


DECVA+2,Pl 


! GET DEF F.C. PHYS ADR 


MOV 


DFCVA+4,R2 


; GET DEF E.C. X T E N D ADR BITS 


SWAB 


R? 


J 


BIS 


P?,CMD 


ISET EXTEND ADR HITS 


MOV 


CMP#(?PXCS 


! SEND COMMAND 


INC 


BKPYPS 


{SET BREAK BYPASS FLAG 


JSP 


PC i A WTR 


1 THEN GO Akv A I T TR 


CLR 


BKBYPS 


{CLEAR BREAK BYPASS FLAG 


TST 


FIN 


i IF FINI FLAG 


BNE 


EODVEC 


j EQUALS ZERO THEN 


MOV 


Pt #PRXDB 


J SET BASE ADDP FOR LOAD EXT ERR REG. 


JSR 


PC, AWDN 


;GO AWAIT DONE 


CALL 


CKNXER 


JCALL CHECK. NON-EXIIST MEMORY ERROR 


EDDVFC! PTS 


PC 


j RETURN 



RXBC DEC/X1 i SYSTEM EXERCISER MODULE 
XPX8CPi.Pl 1 05-APR-79 1 1 | 5 2 



MAC Y 1 t 30AC1052) 05-APR-79 11:54 PAGE 25 



1005 
1006 
1007 
1008 
1009 
1010 

101 1 

1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 



004164* 
004172' 
004174' 
004200* 
004206' 



032777 
001432 
004767 
012777 
012767 



004000 174176 



000062 
040000 

000010 



174160 
173672 



004214* 104405 000000* 000000 



004222' 
004230' 
004234* 
004242' 
004244' 
004252* 
004260' 



004262' 
004270' 
004276' 
004304' 
004312' 
004 320' 
004326' 
004 334' 
004342' 



104402 
005267 
022767 
101006 
012767 
104402 
000207 



017767 
056767 
017767 
016767 
016767 
016767 
016767 
016767 
000207 



005764* 
174076 

000004 174070 

000001 174064 
000000* 005504* 



; MOD U.CKNXER - CHECK NON-EXISTENT MEMORY ERRORS ----------------------- 

CKNXEP I BIT #4000,»RXDB J IF NONEXISTENT MEMORY 

BEQ XNXFR J ERROR , THEN 

CALL SUPTRG jCALL SETUP PRINT REGISTERS 

MOV M0000, 9RXCS UNITIALIZE DEVICE (TO CLEAR ERROP) 

MOV « 10,EPRTYP jSET NO*' -EX I STENT MEMORY ERROR 

HRDERS*BEGIN # NULL j K'Of- -FX I STENT MEMORY ERROR 
•**«**»*»#«#***#*«»#«#**»#**»*«*»«««*****««**«*****«»«*««»#«««** 

M5GS8,NXEPMS, BEGIN 

INC NXERCT J INCREMENT NONEXISTENT ERROR COUNT MEMORY 

CMP #4, NXERCT I IF NON-EXISTENT MEMORY 

BHI XNXEP JERPOR C0UNT*3, THEN 

181 MOV »1 #FIN jSET FIn'I FLAG 

MSGSS, BEGIN, DPP5 ? ASCII MESSAGE CALL WITH NO HEADER 

XNXEPi RETURN > RETURN 



; MOD U.SUPG - SETUP PPINT REGISTERS 



174100 
173766 
174066 
173764 
173754 
174014 
174034 
1 74002 



174050 
174042 
174036 
174034 
174024 
173554 
173544 
173542 



SUPTRG: MOV 
BIS 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

PFTUPN 



PRXCS,SRXCS j GET RXCS 

CMO»SRXCS I SET SRXCS TO SHOw COMMAND 

0RXDB,SRXES J GET RXES 

SA,SRXSA J GET SECTOR ADDRESS 

TA,SPXTA JSET TRACK ADDRESS 

SRXCS»ACSR i SET CONTENTS OF PXCS 

RXCS,CSRA j SET ADDRESS OF RXCS 

SPXES#ASTAT I GET PXES 
j RETURN 
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1037 










; MOD 


U.WpN AWATT PONE BIT 


1038 
















1039 


004344* 


005067 


17 37 40 




AfcDNi 


CLP 


TOMLT 


1040 


004350* 


005067 


173736 




1SS 


CLP 


Tnc*T 


1041 


004354* 


032777 


000040 


1 74004 


2S! 


BIT 


840, SRXCS 


1042 


004362* 


001033 








BNE 


3S 


1043 


004364* 


104407 


00000C*' 






BREAKS 


, REG IN 


1044 


004370' 


104407 








BREAKS 


.BEGIN 


1045 


004374' 


005267 


173712 






INC 


TOCNT 


1046 


004400' 


001 365 








bNF 


2S 


1047 


004402 * 


005267 


17370? 






INC 


TOMLT 


1048 


004406* 


022767 


0*0002 


173674 




CMP 


*?,TO»LT 


1049 


*0441 4 * 


101355 








BHI 


IS 


1050 


004416* 


004767 


177640 






CALL 


SUPTRG 


1051 


004422' 


012767 


00001 1 


173456 




MOV 


#1 1 ,EPPTYP 


1052 












;*»««««***«*»***** 


1053 


004430' 


104405 


000000 ' 


000000 




HPDERS 


, BEGIN, NULL 


1054 












;«»«***»*«#**«»«*» 


1055 


004436' 


104402 


000000' 


005554' 




MSGSS, 


BFGIN,Df'T0 


1056 


004444' 


012767 


000001 


173664 




MOV 


« 1 ,FIN 


1057 


004452' 


000207 






3Si 


PTS 


PC 


1058 
















1059 
















1060 










•MOD 


U.fcTR AWAIT TRANSFER 


1061 
















1062 


004454' 


005067 


173630 




A*TR J 


CLP 


TOMLT 


1063 


004 46W 


005067 


173626 




is: 


CLR 


TOCNT 


1064 


1.H14 46 4' 


032777 


000040 


173674 


2S! 


BIT 


#40, apxCS 


1065 


004472' 


001026 








BNE 


4$ 


1066 


004474' 


032777 


000200 


173664 




BIT 


8200, ffl RXCS 


1067 


004502* 


001046 








BNE 


6S 


1068 


004504* 


005767 


1 7 36 J 6 






TST 


BKBYPS 


1069 


004510' 


001 004 








BNE 


3S 


1070 


004512' 


1 04407 


000000 ' 






BREAKS 


, BEGIN 


1071 


<HI4516' 


104407 


000000 ' 






BPEAKS 


, BEGIN 


1072 


H04522' 


005267 


173564 




3$: 


INC 


TOCNT 


1073 


004526' 


001356 








BNE 


2S 


1074 


004530* 


005267 


173554 






INC 


TOMLT 


1075 


004534 * 


022767 


000002 


173546 




CMP 


#2, TOMLT 


1076 


004542' 


1«1346 








BHI 


IS 


1077 


"0454 4* 


004767 


177512 






CALL 


SUPTRG 


1078 


M04550' 


012767 


000040 


173330 


4S: 


MOV 


*40*EPRTYP 


1079 












}*#### 




1080 


004556* 


104405 


000000' 


000000 




HRDEPS 


, BEGIN, NULL 


1081 
















1082 


004564' 


012767 


000001 


173544 




MOV 


81, FIN 


1083 


004572' 


032777 


000040 


173566 




BIT 


»40,PRXCS 


t084 


004600' 


H01404 








BEQ 


5S 


1085 


004602* 


104402 


00000PS' 


005574* 




MSGSS, 


BFGIN , TRONER 


1086 


004610' 


000403 








BP 


66 


1087 


004612' 








58! 






1088 


004612' 


104402 


000000' 


005564' 




MSGSS, 


BEGIN, TRTO 


1089 


W04620' 


005067 


173502 




6Si 


CLP 


BKBYPS 


1090 


004624' 


000207 








RTS 


PC 


1091 

















JPESET TIME OUT MULTIPLIER 
JPPESET TIME OUT COUNTER 
;SEE IE DONE SET 
!IF SO: BR 

j TEMPORARY RETURN TO MONITOR , . , , 

J THEN CONTINUE AT NEXT INSTRUCTION. 

JBUMP IIME OUT COUNTER 

I IF NOT TlfcED OUT: BR 

> INCREMENT TIMEOUT MULTIPLIER 

I IF ON 2ND 

ITIMLOUT PASS, THEN 

JCALL SETUP PRINI REGISTERS 



JDONE BIT TIME OUT 
»**#«***##«******#**«*«*»*«»***•*##** 

j ASCII MESSAGE CALL WITH NO HEADER 

JDROP MODULE 

IFXIT 



; PRESET TIMEOUT MULTIPLIER 
! PRESET TIME OUT COUNTER 
;IF DONE BIT NOT 
JSET, THEN 

;SEE IF TRANSFER RFADY SET 
JTF so: BP 

;1F BREAK BYPASS FLAG 
}N0T SET, THEN 

> TEMPORARY RETURN TO MONITOR,.., 

"THEN CONTINUE AT NFXT INSTRUCTION. 

jBUMR TIME OUT COUNTER 

; T F NOT T I M FD OUT : BR 

j INCREMENT TIMEOUT MULTIPLIER 

JIF ON 2ND 

jTIMEOUT PASS, THEN 

JCALL SETUP PRINT REGISTERS 



j TRANSFER READY TIME OUT 

jGO DROP MODULE 
J IF DONE BIT 
jSET, THEN 

J ASCII MESSAGE CALL MlH NO HEADER 
JEXIT 

j ASCII MESSAGE CALL WITH NO HEADER 

J CLEAR BREAK BYPASS FLAG 

JPETURN 
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1092 












1093 
















1 094 


004626 * 








TABLE S 






1 095 


00 4 6 2 6 * 


000 3 40 






ARXCSl 


SPXCS 




1 096 


0046 3^ * 


OO0 342 * 






ARXESl 


SPXES 




1097 


0046 3 2 8 


P00 3 4 4' 






APXTAi 


SPXTA 




1 098 


W046 34 * 


000346 * 






APXSAl 


SPXSA 




1 099 


004636 * 


000350 ' 






apxsb: 


SPXSB 




1 100 


004640 * 


000352 * 






APXSB1 I 


SPXSB1 




1101 


00 46 42 * 


0C0354 * 






APXSB2 J 


SPXSB 2 




1 102 


004644 * 


000 356' 






APXSB 3 I 


SPXSB3 




1 103 
1 104 


004646 ' 


177777 








»1 


















1 105 
















I 106 










MFSSAGKS 




1 1 07 
















i 108 


004650* 


054122 


030460 


514 40 


MSG! ? 


, ASC IZ 


'BX01 SUBSYSTEM ' 


1 109 


004656 ' 


041125 


054523 


052123 








1110 


004664* 


046505 


000 










1111 


004667 * 


040 


044524 


042515 


MSG2 i 


, ASCIZ 


' TIME OUT ' 


1112 


00 467 4 * 


047 440 


052 1 25 


000 








113 3 


00470 1 * 


040 


051 104 


053111 


MSG3 ! 


.ASCIZ 


' DRIVE ' 


1114 


004706 * 


20105 


000 










1 S IS 


0047 1 1 * 


040 


037055 


051104 


MSG4 i 


, ASC I Z 


' ->PROP MuDULE% 


1116 


0047 16* 


05P1 17 


4 6440 


0421 17 








1117 


004724 * 


046125 


022505 










1118 


004731 * 


040 


047H1 


052 1 1 1 


MSG5f 


ASCIZ 


INITIAljJfcr, 


1119 


V / J o 


04 05 1 1 


4 9 3 14 


042532 








! 1 20 


0047 44 * 


000 












1121 


mm A 1 A K * 




04 7516 


WD £ ^ttr 


MSGfci 


.ASCIZ 


* NO UNITS TO TEST ' 


1122 


004752 * 


44516 




052040 








1123 


ft (\ A 1 £\ : h 9 

WW f D W 


0201 1 7 


042324 


052123 








1124 


004 766 * 


000 












! « 


ota A 1 k 1 9 




W 3 i rl *6 17 


044505 


MSG7: 


.ASCIZ 


t a OFTMTTT4T T 7 F * 


1126 


/-a #s A 7 A 9 
(r>(f> "t lit 


04 4516 


a A Ati T A 










1127 


005002 * 


0551 1 1 


000 105 










1128 


005006 * 


05 1 440 


052105 


1 £. A A t\ 


MSGS i 


.ASCIZ 


* SET •» > WAITING ON 


1129 


00501 4 * 


02007 6 


040527 


052111 








1130 


005022 * 


047111 


2 M 7 


047117 








1131 


005030" 


000 












1 132 


00503 i * 


040 


044506 


046114 


MSG9I 


.ASCIZ 






\) SO J 19 3 O 


fit a&a 


04 3125 


042506 








1134 


005044* 


000122 












1135 


005046' 


051 440 


0471 1 1 


046107 


MSG! 1 j 


.ASCIZ 


* SINGLE' 


1136 


005054* 


000105 












1137 


005056* 


042040 


052517 


046102 


MSG12I 


.ASCIZ 


' DOUBLE' 


1138 


005064 s 


000105 












H39 


005066* 


042040 


047n7 


020105 


MSG13S 


.ASCIZ 


' DONE PIT * 


1140 


005074* 


044502 


000124 










1H1 


005100* 


052040 


04*522 


051516 


MSG 1 4 : 


.ASCIZ 


' TRANSFER READY ' 


1142 


005106* 


042506 


020122 


042522 








1143 


0051 14* 


042101 


000131 










1144 


005120* 


042040 


047105 


044523 


MSG15I 


.ASCIZ 


* DENSITY* 


1145 


005126* 


054524 


000 










1 i 46 


005131 * 


040 


051105 


047522 


MSG17 J 


.ASCIZ 


' EPROP- RETRY I * 


1147 


005136* 


026522 


051040 


052105 
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XRXBC0.P1 1 0! 


«APP«79 


1 1152 










1148 


005144* 


054522 


000072 










1 149 


005150* 


020045 


042523 


0001 24 


MSG18I 


.ASCIZ 


** SFT ' 


1150 


005156* 


020045 


051 127 


052111 


MSG19J 


.ASCIZ 


'* *R ITF ' 


1151 


005164* 


000105 












1 152 


005166* 


020045 


042522 


042101 


MSG20J 


.ASCIZ 


'% READ' 


1 153 


005 174 9 


000 












1154 


005175* 


040 


046505 


052120 


MSG2H 


.ASCIZ 


' EMPTY BUFFER' 


1155 


005202 * 


020131 


052502 


043106 








1156 


005210* 


051105 


000 










1157 


005213' 


040 


047516 


020124 


MSG22S 


.ASCIZ 


» NOT AVI ALABLE ' 


1 159 


005220* 


053101 


04051 1 


040514 








1159 


005226' 


046102 


0001 05 










1 160 


005232* 


042440 


051 122 


051117 


M S G 2 3 I 


.ASCIZ 


' EPPOR' 


1161 


005240* 


000 












1162 


005241 * 


045 


026440 


051476 


MSG24S 


, ASCIZ 


'* »> SETTING DISKETTE TO * 


1 163 


005246* 


052105 


044524 


043516 








1164 


005254* 


042040 


05151 1 


042513 








1 165 


005262' 


052124 


020105 


047524 








1 166 


005270* 


000 












1167 


H05271 ' 


045 


020040 


044440 


M S G 2 5 1 


.ASCIZ 


'% IF INTERRUPTED-> MAY NEED 


1168 


005276* 


020106 


0471 1 1 


042524 








1 169 


005304* 


051 122 


050125 


042524 








1170 


00531 2' 


026504 


02^76 


040515 








1171 


005 3 20' 


020131 


042516 


042105 








1 172 


005326* 


051040 


043105 


051 117 








1173 


005334* 


£40515 


022524 


000 








1 174 


1.05341 ' 


045 


000 




MSG26I 


.ASCIZ 




1175 


00534 3' 


055 


020076 


047516 


MSG271 


.ASCIZ 


'»> NONEXISTENT MEMORY ERROR « 


1 176 


005350* 


P42516 


044530 


052123 








1177 


005356' 


047105 


020124 


042515 








1178 


005364* 


047515 


054522 


042440 








1179 


005372* 


051122 


?51 117 


026440 








1 180 


005400* 


044440 


044516 


044524 








1181 


005406 ' 


046101 


055111 


020105 








1182 


005414* 


042504 


044526 


042503 








1183 


005422' 


000 












1184 




005424* 








,EVFN 




1188 


005424* 


030040 






DNUMl 


•ASCIZ 


' 0' 


1186 




005430* 








.EVEN 




1187 


005430* 


030040 


000 




RTYNl 


.ASCIZ 


' 0' 


1188 




005434* 








.EVEN 




1189 
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119$ 






..... FORMATTED MFSSAGES --— 




1191 


005434 ' 


005 1 75 * 


B F E P 1 S 


MSG 2 1 


j E f" P T I BUFFER 


1192 


005 4 16 * 


5 2 3 2 * 




MSG2 3 


J ERROR 


1193 


005 4 40 * 


177777 




•1 




1194 


005 14 2 * 


0050 31 * 


PFE F 2 X 


MSG9 


j r 1 Liu nUF f tr 


S 1 95 


5 4 4 4 * 


005232* 




M&G23 


I "ERROR" 


1 196 


005 4 46 * 


17777? 




» 1 




1 197 


§ 4 8 * 


004731 * 


DPP! l 


MSGS 


i IUWTTI ]\I T 7 G" H 

; Ini 1 i AultC, 


1198 


005 452' 


5 2 3 2 * 




MSG2 3 


} " ERROR " 


S 1 99 


005 45 4* 


00471 1 * 




MSG 4 


c unonn m aim i t i? ii 


1 200 


00545b' 


177777 




-1 




1201 


005460* 


00 47 45* 


DRP2I 


MSG6 


} 11 N UNITS TO TEST" 


1202 


005 462 * 


00471 1 ' 




MSG4 


1 "DROP M ODULE" 


1203 


005464 * 


177777 




-1 




1204 


005466' 


4 76 7' 


DPP3I 


MSG7 


; " REINITIALIZE " 


1 205 


<*05 4 70* 


005232* 




MSG23 


{ "ERROR " 


1 206 


005 4 72* 


O047 U * 




fSG4 


t "DROP MODULE " 


1207 


5 4 7 4' 


1 77777 




•1 




1209 


005476 * 


004650* 


DPP4S 


MSG1 


|"RX01 SUBSYSTEM" 


1209 


005500 * 


00471 1 * 




MSG4 


) "DROP MODULE 


1210 


005502* 


177777 




-1 




1211 


005504 * 


0047 1 1 * 


DRP5 1 


MSG4 


• "DROP MODULE" 


1212 


005506 " 


1 77777 




-1 




1213 


005510* 


004701 * 


MINT I 


MSG3 


HTM 


1214 


P055 1 2 * 


a 5 4 2 4 * 




DNUM 




1215 


00551 4* 


00521 3 ' 




MSG22 


J D* U 1 HvMiuHPL'L 


1216 


5 5 1 6 * 


17 7 7 7 7 




"l 




1217 


005520 * 


00470 I * 


SETSDE t 


MSG3 


» D R I V F " 
! H H 


1218 


005522 * 


005 4 2 4 * 




D N U N' 


' * 


1219 


005524 * 


005 1 50 * 




M S G 1 8 




1220 


005526 * 


005046 * 




MSG11 


J "SINCLE" 


1221 


0055 30 * 


005 1 20 * 




MSG! 5 


i "DENSITY" 


1222 


00553 2 * 


05 2 3 2 ' 




MSG2 3 


f 'ERROR 


122 3 


' ^ r r ^ t » 


^ ZI-I"^ * 




-1 




1224 


0055 36 


004 701 


SETDDE : 


MSG3 


• " D H I V F " 
' it « ii 


1225 


5 5 4 * 


005 4 2 4 ' 




DNUM 


' "SET" 


1226 


055 42 * 


005 1 50 * 




MSGl 8 




1227 


005544 * 


005056 ' 




M5G1 2 




1228 


0055 46 * 


005 1 20 * 




MSGl 5 




1229 


005550 * 


005 2 3 2' 




MSG23 


J "ERROR 


1230 


(10555 2 * 






" 1 




12 31 


ia a s. s & a * 

V So 3 3 7) 1 


005066 * 


ONTO} 


MSGl 3 


j " D N F BIT" 


1 232 


005556* 


004667 ' 




MSG2 


I "TIME OUT" 


1233 


005560 s 


0047 n * 




MSG 4 


j "DROP MODULE" 


1234 


005562* 


177777 




-1 




1235 


005564* 


005100* 


TPTOt 


MSGl 4 


{"TRANSFER READY" 


1236 


005566* 


004667* 




MSG2 


J "TIME OUT" 


1237 


005570* 


00471 1 * 




MSG4 


j "DROP MODULE" 


1238 


005572* 


177777 




- 1 




1239 


005574* 


005066* 


TPDNEP ! 


MSG 1 3 


; i "DONE BIT" 


1240 


005576* 


005006* 




MSGB 


} "SET -> WAITING ON" 


1241 


005600* 


005100* 




MSG 14 


; "TRANSFER READY " 


1242 


005602* 


004711 * 




MSG4 


! "ODPOP MODULE" 


1243 


005604 * 


177777 




-1 




1244 


005606* 


004701 * 


WTERDD ! 


MSG3 


1 "DPIVE" 


1245 


f 05610* 


005424* 




DNUM 


. ii g ii 
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1246 


005612* 


005156 ' 




MSG 1 9 


I "WRITE" 


1247 


005614* 


005056* 




MSGl 2 


t "DOUBLE" 


1248 


005616* 


005 1 2«" 




MSG15 


J "DENSITY" 


1 249 


005620* 


0051 31 s 




MSGl 7 


> "ERR0R«PETRY: " 


1250 


O05622* 


('05 4 3!?'* 




PTYN 


j 11 *" 


1251 


005624' 


005341 * 




MSG26 


! "CPLF" 


1252 


0515626* 


1 77777 




-1 




1253 


t;05 6 30* 


004701 * 


fcTEPSD t 


MSG 3 


) "DPIVE" 


1254 


W05632* 


005424* 




DNUK 


J " 8 " 


1255 


005634' 


005156* 




MSGl 9 


J "WRITE" 


1256 


005636* 


005046 * 




MSGl 1 


! "SINGLE" 


1257 


005640" 


mH51 20* 




MSGl 5 


j "DENSITY" 


125R 


0O5642* 


0051 31 * 




MSG 1 7 


f "ERROR-RETRY 5 " 


1259 


005644* 


005 4 30* 




RTY f '' 


j " » " 


1260 


005646* 


005341 * 




MSG26 


! "CRLF" 


1261 


005650* 


1 77777 




-1 




1262 


005652' 


004701 ' 


PTEPDDJ 


MSG3 


} "DRIVE" 


1263 


«05654 ' 


005424* 




PNUM 




1264 


005656* 


005166* 




M S G 2 


; "READ" 


1265 


005660* 


005056 * 




MSGl 2 


! "DOUBLE" 


1266 


005662 ' 


005 120* 




MSG15 


t "DENSITY" 


1267 


00566 4* 


0MS 1 31 ' 




MSGl 7 


? "EPPOR-RFTRY t " 


1 268 


i»05666' 


005 4 30* 




RTYN 


, n i 11 


1269 


005670* 


005 341 ' 




MSG26 


; "CRLF" 


1 270 


"05672* 


177777 




»1 




1271 


005674* 


004701 * 


RTERSDi 


MSG 3 


) "DPIVE" 


1272 


005676* 


005424* 




D N U M 


1 » S " 


1273 


005 700' 


f 05166' 




?'SG20 


j "READ " 


1274 


005 702* 


005046* 




MSG 1 1 


•"SINGLE" 


1275 


005 704 ' 


005 120' 




MSG 15 


f "DENSITY" 


1276 


(H^706 * 


005 13 1 * 




MSG1 7 


; "ERROR-RETRY I " 


1 277 


005710* 


005430* 




PTYM 




1 278 


005712* 


005341 * 




MSG26 


; "CRLF" 


1279 


00571 4* 


177777 




-1 




1280 


00571 6* 


00470 1 ' 


SETSDNi 


MSG 3 


; "DRIVE" 


1281 


Q05 7 20* 


005 42 4* 




D N U K ' 


1 " 8 " 


S 282 


005722* 


005241 * 




MSG24 


j "SETTING DISKETTE TO" 


1 283 


if 05724 ' 


005046* 




MSGS 1 


? "SINGLE" 


1284 


005 7 26 * 


005120 ' 




MSGl 5 


I "DENSITY" 


1285 


005730* 


005271 * 




MSG25 


; "IF INTERRUPTED-MAY NEED REFOpMftT" 


S 286 


0057 32' 


177777 




-1 




1287 


i*0S7 3 4 ' 


00 4701 * 


SSGLDN 1 


MSG3 


f "DRIVE" 


i 288 


0^)5736* 


005 424 s 




DNUM 


. 11 # 11 


1289 


005 7 40' 


005241 ' 




MSG? 4 


1 "SETTING DISKETTE TO" 


1290 


005 7 42' 


00504 6 * 




MSG 1 1 


"SINGLE" 


1291 


005744 * 


005120" 




MSG15 


1 "DENSITY" 


1292 


0057 46* 


1 77777 




-1 




1293 


0<"5 750* 


004701 * 


SDBLDNf 


MSG3 


S "DRIVE" 


1294 


005752* 


005 42 4* 




DNUM 


1 « # " 


1295 


005754* 


005241 * 




MSG24 


j "SETTING DISKETTE TO" 


1296 


0057S6* 


005056* 




MSG 1 2 


r "DOUBLE" 


1297 


005760* 


005120* 




MSG 15 


j "DENSITY" 


1298 


005 762* 


177777 




«1 




1299 


005764* 


005 343* 


NXERMSt 


MSG27 


j »->NON EXISTENT MEMORY ERROR " 


1300 
1301 


005766* 


177777 




-t 
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SfcQ 0030 



1302 DATA BUFFERS — — — . 

1 303 

1304 .EVEN 

1305 00577?' 000000 RBUF* ; READ BUFFER 

1306 006372* ,s,4400 

1307 ; — ■ 

1308 000001 , FND 



RXBC DEC/X1 1 SYSTEM EXERCISER MODULE 
XRXBC0.P1 1 05-APR-79 1 1152 
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CROSS REFERENCE TABLE — USER SYMBOLS 



SEQ 0to31 



ACSR 

ADDR 

ADDR22a 

APXCS 

APXES 

ARXSA 

ARXSB 

ARXSB1 

ARXSB2 

ARXSB3 

ARXTA 

ASB 

ASTAT 

AWAS 

AWDN 

AWTR 

BEGIN 



BFER1 
BFER2 
BGNDO 
BIT0 s 
BITJ s 
BIT10 » 
BIT11 « 
BIT12 a 
BIT13 » 
BIT14 = 
BIT15 a 
BIT2 s 
BIT3 a 
BIT4 a 
BITS s 
BIT6 s 
BIT7 s 
BITS b 
BIT9 ■ 
BKBYPS 
BKLOOP 
FREAKS* 
BRl 
BR2 

BTODS a 

CDATASs 

CDERCT 

CDWDCT 

CKDNEP 

CKNXEF 

CKPDEP 

CKWTEP 

CL 

CLEAR 
CMD 



000102R 

000006P 

001000 

004626R 

004630P 

004634P 

004636R 

004640R 

004642R 

004644R 

004632R 

000106R 

00P104P 

0001 10R 

004344P 

004454R 

000000P 



005434R 
005442R 
ti00670P 

000001 

00H002 

002000 
004000 

010000 

020000 

040000 
100000 
000004 
000010 

000020 

000040 

O00100 
000200 
P00400 

001000 

000326R 

001 002R 

104407 

000012R 

00001 3R 

104421 

104412 

000144R 

t'00146p 

003472R 

004164R 

003544R 

003606R 

003464R 

s'03650R 

000262P 



293* 
259* 
322* 
10958 
1096* 
1098" 
1099* 
1100* 
1101* 
H02# 
1097* 
297# 
295# 
298* 
5 30 
551 
2568 
712 
919 
1044 
653 
596 
477* 
3228 
322* 
322* 
322« 
322* 
322* 
322* 
322* 
322* 
322* 
322* 
322* 
322* 
322* 
322* 
322* 
346* 
478 
322* 
261* 
262* 
322* 
322* 
312* 
313* 
885* 
588* 
888* 
890* 
889 
891 
328* 
604* 



1032* 
854 



585 


640 


725 


747 


769 


780 


947 


1001 


1039* 








555 


575 


580 


606 


610 


630 


635 


775 


799 


819 


99b 


1 062* 


461 


466 


485 


486 


495 


524 


535 


594 


596 


651 


653 


65b 


734 


736 


756 


758 


779 


803 


823 


863 


866 


904 


907 


915 


922 


929 


933 


936 


950 


960 


979 


989 


1014 


1016 


1021 


1043 


1053 


1055 


1070 


1071 


1080 


1085 


1088 













1191* 
1 1948 



579# 
484 
1043 
853 



897* 
645* 
913* 
927* 
891* 
942* 
528* 
605 



581* 634* 

489 492 

1044 1070 
871 



636# 
497* 
1071 



529 
624* 



547* 

625* 



548* 
628* 



549* 
629 



550 
722* 



569* 
723* 



570* 
724 



573* 
744* 



574 
745* 



b02* 
746 



603* 
766* 
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CROSS REFERENCE TABLE USER SYMBOLS 



SKQ 0032 







767* 


768 


772* 


773* 


774 


796* 


797* 


798 


816* 


817* 


818 


877* 


878 






883* 


945* 


946 


973* 


988* 


993* 


994 


1028 












CONFIG 


000056R 


281 # 


























CSRA 


000100R 


2911 


1 03 3* 
























DATCKss 


10441 1 


3?2» 


























DATEPS* 


104404 


3228 


























DECVA 


000360R 


3640 


989 


990 


991 




















DEN 


000306p 


338$ 


438* 


518# 


794 


902 


917 


931 














DENCH 


PI02734R 


519 


786# 
























DENSTY 


000304R 


3378 


439* 


549 


570 


604 


625 


723 


745 


814* 


834* 








ONSET 


002616R 


700 


708 


7660 






















DNTO 


005554R 


1055 


1 231 # 
























DNUM 


005424P 


454* 


459* 


680* 


687* 


699* 


707* 


731* 


753* 


790* 


793* 


810* 


83w* 


1185» 






1214 


1218 


1225 


1245 


1254 


1263 


1272 


1281 


1288 


1294 








DOUNTL 


001150R 


500 


5218 
























ORP1 


005450P 


535 


11978 
























DRP2 


005460R 


712 


J20H 
























DRP3 


005466R 


950 


12048 
























DRP4 


005476P 


466 


12088 
























DRP5 


005504P 


1021 


121 1 # 
























DPVN 


000260R 


327# 


443* 


673 


675* 


682* 


















PVEC 


004062R 


884* 


974* 


987# 






















DVIDl 


H00014R 


263* 


446 


452 


457 




















DVID1X 


000252R 


3248 


446* 


451* 


456* 


720 


742 
















Dl 


000544R 


450 


4568 
























EDBYPS 


000720R 


400 


4838 
























EDDVEC 


004162R 


999 


1003 1» 
























ENDCLP 


004006R 


952 


958 


965 


967# 




















ENDDNC 


003244R 


801 


806 


815 


821 


826 


8358 
















ENDEC 


003470R 


881 


8928 
























END IN 


001676R 


60B 


612 


6181 






















ENDINT 


001230R 


532 


534 


537# 






















ENDIN2 


002104R 


623 


632 


638 


642 


647 


654 


658* 














ENDlT$a 


104413 


U2» 


495 
























ENDOUT 


001372R 


545 


553 


557 


561 


564* 


















ENDOU2 


0O1556R 


577 


583 


587 


590 


5978 


















ENDSEL 


002232R 


681 


688* 
























ENDST 


002360P 


705 


709 


711 


7148 




















ENDTDR 


004060P 


976 


9828 
























ENDTSS 


002142R 


665 


668a 
























ENDUT0 


002476R 


727 


730 


7386 






















ENDUT1 


002614R 


749 


752 


7608 






















ENDS s 


104410 


322» 


524 
























ERRTYP 


000106R 


296* 


592* 


649* 


732* 


754* 


913* 


927* 


977* 


1012* 


1051* 


1078* 






EXITS a 


104400 


3228 


863 
























FIN 


000336R 


35H# 


437* 


469 


472 


483 


488 


491 


521 


531 


544 


552 


556 


560 






576 


582 


586 


607 


611 


631 


637 


641 


713* 


726 


748 


770 


77b 






80(i 


805 


820 


825 


901* 


964* 


975 


981* 


998 


1020* 


1056* 


1082* 




FINI 


001 156R 


467 


470 


473 


5238 




















FIRST 


000576R 


448 


453 


458 


462* 




















FREE 


000150R 


314* 


























GETPASa 


104415 


322« 


485 


989 






















GO 


000632P 


465 


4688 
























GWBUFSa 


104414 


3228 


486 
























HPDCNT 


000044R 


276* 


























HRDERS= 


1 04405 


3228 


594 


651 


734 


756 


960 


979 


1014 


1053 


1080 









RXBC DEC/Xl 1 SYSTEM 


EXERCISER 1 


MODULE 


MACYll 


30A( 1052) 


05-APP 


-79 


11154 PAGP" 


XPXBC0.I 


Pil 05-APR 


«79 11152 




CPOSS 1 


REFERENCE 


TARLE 


USFR 


SYMBOLS 


HPDPAS 


000050R 


278# 














ICONT 


000036P 


2738 














ICOUNT 


000040R 


2748 














IDNUM 


000122R 


303# 














IMODX.a 


000000 


3158 


487 












INBUF2 


P01700R 


617 


6228 












INIT 


000030R 


2708 














INLOOP 


000322P 


3448 


477 


494* 


497* 








INPUT 


001560R 


490 


6018 












INT 


00031 4P 


341* 


462* 


474* 


696 


7T4 






INTER 


003340R 


559 


614 


804 


824 


8628 






INTIAL 


00U62R 


468 


5288 












INTR 


000120R 


3028 














ITBYPS 


000 3 2 4R 


345« 


479 


498* 


509* 








MAP22SS 


104416 


322* 














MODNAM 


000000R 


257S» 














MODSP 


000252R 


271 


3208 












MSGNS s 


104403 


322* 


461 


466 


535 


712 


779 


803 


MSGSS » 


104402 


322" 


596 


653 


736 


758 


919 


922 






1088 














MSGS a 


104401 


322* 














MSG! 


004650R 


11088 


1208 












MSGl 1 


0-.15046P 


1 1 35# 


1220 


1256 


1274 


1 283 


1290 




MSG12 


005056R 


1 1 37S 


1227 


1247 


1265 


1296 






MSG 1 3 


005066R 


1 1 39# 


1231 


1239 










MSGl 4 


005100R 


1 141 8 


1235 


1241 










MSG i 5 


005120P 


1144S 


1221 


1228 


1248 


1257 


1266 


1275 


MSG 1 7 


0051 31 R 


11468 


1249 


1258 


1267 


1276 






MSGl 8 


005150R 


11498 


1219 


1226 










MSGl 9 


005156R 


J 1508 


1246 


1255 










MSG2 


004667R 


lilt* 


1232 


1236 










MSG20 


005166R 


1152* 


1264 


1273 










MSG21 


005175R 


1154* 


1191 












MSG22 


00521 3R 


1 157* 


1215 












MSG23 


005232P 


U60# 


11^2 


1195 


1198 


1205 


1222 


1229 


MSG24 


005 24 IP 


1 1 62 * 


1282 


1289 


1295 








MSG25 


005 27 1R 


1 167* 


1285 












MSG26 


"05341R 


1 1 748 


1251 


1260 


1269 


1278 






MSG27 


005343P 


U75« 


1299 












MSG3 


004701R 


11138 


1213 


1217 


1224 


1244 


1253 


1262 


MSG4 


0047 1 IP 


1115* 


1199 


1202 


1206 


1209 


1211 


1233 


MSGS 


0C4731R 


1 1188 


1197 












MSG6 


004745R 


1 121* 


1201 












MSG7 


004767p 


11258 


1204 












MSGS 


M05006R 


H28 8 


1240 












MSG9 


005031R 


1132« 


1 194 












NTRUPT 


00 33 44R 


852 


8648 












NUAV 


000570R 


455 


4608 












NULL s 


000000 


3228 


594 


651 


734 


756 


1014 


105 3 


NUNT 


005510R 


461 


736 


758 


12138 








NXERCT 


000 3 3 2R 


3488 


445* 


1017* 


1018 








NXEPMS 


00§764R 


1016 


12998 












OPEN s 


000000 


258 


264 


265 


266 


267 


284 


285 






293 


295 


297 


298 


300 


301 


302 






313 


314 


3228 










QTOAS as 


104420 


1228 















823 
933 



904 
936 



1291 



907 
1016 



1297 



950 
1021 



1271 
1237 



1280 
1242 



286 
305 



287 
30b 



288 

308 



289 
309 



290 
311 



291 
312 



PXBC DEC/XU SYSTEM FXEPCIsER MODULE 
XRXBCtf, PI 1 05-APR-79 1 t : 52 
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CROSS REFERENCE TABtE USFR SYMBOLS 



OUBUF2 


0^1 400R 


543 


569# 










OUTPUT 


232R 


497 


5 42 » 










PASCNT 


000034P 


272# 












PIRQ$ a 


003004 


322* 


866 










POPSP ■ 


005726 


3228 












POPSP2 s 


022626 


322« 












PPTY a 


000000 


322* 












PRTY0 a 


000000 


262 


322* 










PPTYI s 


000040 


3228 












PBTY2 s 


00010^ 


3228 












PRTY3 s 


000 1 4^ 


322* 












PRTY4 s 


000200 


3228 












PHTY5 s 


000240 


261 


322$ 










PRTY6 a 


000300 


3 22 # 












PRTY7 s 


000340 


322* 












PS s 


1 77776 


322 » 












PSW s 


177776 


322* 












PUSH s 


H05746 


322# 












PUSH? s 


024646 


3228 












BANDS s 


104417 


322 * 














w 00054R 


2 8 * 












RBUF 


005770P 


30 4 


1305S 










RBUFEA 


000 i 30P 


306 * 


626 










RBUFPA 


0<*01 26R 


305 » 


639 


656 








PBUFSE 


0001 3 2P 


307# 












PBUFVA 


0001 24P 


304 8 


465 










READ 


000752R 


4<?0# 












SESTPT 


000666R 


299 


476S 


522 








RES1 


0000S6P 


2®2# 












RES2 


000060P 


2B3» 












PSTPT 


0001 12R 


2Q9U 












PTERDD 


00S652R 


922 


1262* 










RTEPSD 


005674R 


919 


1271 » 










RTRYFL 


n*00330R 


347# 


562 


615 


880* 


956* 




PTYN 


00S4 30R 


546* 


601* 


953* 


954 


96b* 


11»7» 


BXCS 


000366p 


370* 


464 


529* 


533 


550* 


574* 






768® 


774* 


798* 


818* 


854* 


877 






1064 


1066 


1083 








RXDB 


000370R 


37}8 


554* 


558* 


578* 


584* 


609* 






822* 


855* 


856* 


1000# 


1008 


1029 


SA 


00C274R 


333* 


481* 


554 


609 


662* 


663 


ShShV 


000300R 


335* 


435* 


481 


5lw* 


511 


513* 


SBADP 


H00102P 


292* 












SDBLDN 


005750R 


823 


1 293a 










SECK 


003372R 


781 


868 


876# 








SEtD 


002144R 


475* 


520* 


673» 


678 


685 




SERFL 


000334R 


3498 


444* 


622 


876* 


942* 




SETDDE 


005536R 


907 


1 224# 










SETSDE 


005520R 


904 


12P# 










SETSDN 


005716P 


779 


1280# 










SOFCNT 


000042P 


275* 












SOFER$s 


104406 


322* 


915 


929 








SOFPAS 


000046R 


277* 












SPOINT 


000032R 


271 « 


433 










SPSIZ » 


M00040 


1 » 


315 










SRXCS 


000340P 


3568 


897 


1027* 


1028* 


1032 


1095 



1250 
589 
946* 



66b* 
666 



1259 
b05* 
948 



1268 
629* 
994* 



1277 
643 
1011* 

728 



646 
1027 



724* 
1033 



746* 
1041 



PXBC DEC/X1 1 SYSTEM EXERCISER MODULE 
XPXBC0.PJ 1 05-APR-79 1 1 I 5 2 
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CROSS REFERENCE TABLE — USER SYMBOLS 



SPXES 


000342R 


357# 


1029* 


1034 


1096 




SRXSA 


000346P 


359* 


1030* 


1098 






SRXSB 


000 3 5 0R 


360* 


364 


943 


967* 


1099 


SRXSB1 


000352P 


361 * 


1100 








SBXSB2 


000354P 


3628 


1101 








SPXSB3 


000356R 


363* 


1102 








SPXTA 


000344P 


358S 


1031* 


1097 






SB 1 


00M016R 


264* 


962 








SP-2 


000020P 


265* 










SP3 


000022P 


266* 










SP-4 


000024R 


267s 










SSGLDN 


005734R 


803 


1 287# 








START 


000376R 


270 


432* 








STAT 


M00026R 


269* 










STATUS 


002234R 


471 


692* 








SUPTPG 


004262P 


59f* 


648* 


882* 


972* 


1010* 


SVR0 


000062P 


284# 










SVR1 


0v50064R 


285* 










SVP2 


H00066R 


286* 










SVR3 


000070P 


287# 










SVR4 


000072R 


288* 










SVP5 


000074P 


289« 










SVR6 


000076R 


290 8 










SYSCNT 


000052P 


2798 










TA 


W00272P 


332* 


482* 


505* 


506 


508* 


TABLE 


004626R 


915 


929 


960 


979 


1094S 


TASAV 


000 2 7 6 R 


334# 


434* 


482 


508 


514* 


TDPP 


004014P 


536 


951 


972* 






TOCNT 


H00 312P 


340* 


1040* 


1045* 


1063* 


1072* 


TOMLT 


000 310R 


339* 


1039* 


1047* 


1048 


1062* 


TPDNEP 


005574R 


1085 


1239* 








TPPDKDb 


000022 


322* 










TPTO 


005564R 


1088 


1235* 








TSS 


O02106R 


493* 


662* 








TSSFLG 


000320P 


343* 


499 


501* 


667* 




UPNCK 


003246R 


502* 


839* 








UNIT0 


000254P 


325* 


440* 


683 


694 


710 


UNIT1 


000256R 


326* 


441* 


676 


702 


759* 


UNT0 


f ">2362R 


693 


720* 








UNT1 


002500P 


701 


742* 








UT 


000266P 


330* 


789# 


792* 


797 


807 


UTOONE 


000316R 


34281 


503 


843* 


845* 




UTT 


000264P 


329* 


442* 


547 


602 


679* 


U0 


002236R 


693* 










ui 


002274R 


6*5 


697 


701* 






VARIFY 


000374P 


373* 


778 


802 


822 




VEC 


000372P 


372* 










VECTOR 


00W010P 


260« 


851 


869 






VSET 


003300R 


463 


851* 








WASADP 


00010 4R 


294* 










WBUFEA 


000136R 


309* 


571 








WBUFPA 


000134R 


3089 


584 








WBUFPO 


000140P 


310* 










WBUFSZ 


000142R 


311 » 










WDCNT 


000302R 


3368 


436* 


578 


633 




$DFR 


0001 16P 


301 » 











1050* 1077* 



737* 
787 



809* 
686* 



817 
698* 



827 

706* 



829* 
767 



RXBC DLC/X1 1 SYSTEM 


EXERCISER 


MODULE 


MACYl 1 


30AU052) 05-APP 


-79 11154 PAGE 


XRXBC0. 


Pll 05-APR 


-79 11 S 5 2 




CROSS 


REFERENCE TRPLE -- 


USER SY^OLS 


WDTO 


0001 i 4R 


300» 










WRITE 


000740R 


4P7S 










WTERDD 


005606P 


936 


12449 








WTERSD 


005630P 


933 


1253* 








WTF 


000270R 


3318 


542* 


564* 


886 




XDNER 


003542R 


900 


905 


90S# 






XDNSET 


002732R 


771 


777 


782# 






XFLAG 


0O0005R 


258* 










XNXER 


004260R 


1009 


1019 


10228 






XUDNCK 


003276R 


844 


846# 








* 8 


006372P 


365 


366 


657 


H84# 11868 


1 1 88 # 1 306* 



. ARS. 000000 000 
006372 001 



ERRORS DETECTED i 

DEFAULT GLOBALS GENERATED I 

XPXBC0,XRXBC0/SOL/CPFlSYMsDDXCOM,XRXBC0 
RUN-TIMEl 7 12 1 SECONDS 
PUN-TIME RATIOl 90/21=4.2 
CORE USEDI 9K (17 PAGES) 



